Loop paste celler når der er en værdi i A

Sub KopiVedTegniA()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False
    For Each c In ActiveSheet.Range("A3:A10").Cells 'Ret celler for indsæt
        If c.Value <> "" Then
            Range("C2:AC2").Copy Destination:=c.Offset(0, 2)
        End If
    Next c
   
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub

Sub KopiVedTegniA_version_2()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False

    Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$35").AutoFilter Field:=1, Criteria1:="<>"
   
    Range("C3:AC3").Copy
   
        sidste = Range("A65536").End(xlUp).Offset(0, 28).Address
        Range("C3:" & sidste).Select
       
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
 
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub

Sub KopiVedTegniA_version_2()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False

    Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$35").AutoFilter Field:=1, Criteria1:="<>"
   
    Range("C2:AC2").Copy
   
        sidste = Range("A65536").End(xlUp).Offset(0, 28).Address
        Range("C2:" & sidste).Select
       
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
   
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub

Sub KopiVedTegniA_version_2()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False

    Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="<>"
   
    Range("C2:AC2").Copy
   
        sidste = Range("A65536").End(xlUp).Offset(0, 28).Address
        Range("C2:" & sidste).Select
       
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
   
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub