Kopiere fra kolonne A i den aktive linie

Jeg skal lave en macro der kopirer fra et aktiv ark til et statistik ark. Den skal tage fra kolonne a i den linie man står i og kopiere den til den næste tomme celle i et statistik ark.
Den skal F.eks. starte med at indsætte i linie B12 og så i B13 osv. Jeg har prøvet at ændre denne formel. Men kan ikke få det til at virke.

Håber der er lidt hjælp at hente.

Sub KopierTilTom()

For Each c In Worksheets("Ark2").Range("A1:A65536")
    If IsEmpty(c.Value) Then
        c.Value = Worksheets("Ark1").Range("A1")
        Exit For
    End If
Next

End Sub