Makro - den vil ikke gå ned på næste linje på ARK2.??

Hej

Min makro vil ikke springe ned på næste linje på ark2. den bliver ved med at overskrive den forgående linje? nogle der kan hjælpe mig?

Sub flytdata()

Dim targetRow As Long


' finder første tomme række i ark2
targetRow = Worksheets("Ark2").Range("A65536").End(xlUp).Row + 1

' kopierer aktiv række
ActiveSheet.Range("A12").Activate
'Tester om celle A12 på Ark1 er tom
Set rCell = Range("A12")
If IsEmpty(rCell) Then
  MsgBox "CELLE " & "A12" & " MÅ IKKE VÆRE TOM!."
  Else
    'Hvis Ark1 Celle A12 er udfyldt kopieres række 2
    'Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy
    Worksheets("Ark1").Range("A12:J12").Copy
        Worksheets("Ark2").Select
        'ophæv beskyttelse på Ark
        ActiveWorkbook.ActiveSheet.Unprotect "semler"
            ' vælger kopiarket og den første ledige række og indsætter
            'Worksheets("Ark1").Range("A12:J12").Copy
            ActiveSheet.Paste

            'Rows(targetRow & ":" & targetRow).Select
            'ActiveSheet.Paste
            ActiveWorkbook.ActiveSheet.Protect "semler"
        ' tilbage til originalarket
        Worksheets("Ark1").Select
    ' Ophæv markeringen af kopering af række
    Application.CutCopyMode = False
' flytter cursor til celle A12
ActiveSheet.Range("A12").Activate
'sletter række A12 så den er klar til en ny indtastning
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Delete
End If



End Sub