Daten von AN3 nach I3 kopieren Makro

[luna101]

Hallo ihr fleissigen Helfer,
habe mit dem Makrorecorder ein Makro erstellen lassen, das mir Daten von AN3 nach I3 kopiert. Dies funktioniert, ist aber langsam.
Wie muss ich das Makro ändern, dass nur Spalte A3 bis letzte Zeile kopiert wird?
Es sind auch leerzeilen vorhanden und die Zeilenzahl ist verschieden.
Danke für eure Hilfe
Gruss Martin

Sub Makro1()
'
' Makro1 Makro
'
    Range("AN3:AN38").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 1
    Range("I3").Select
    ActiveSheet.Paste
End Sub

[Werner.M]

Hallo,

Code:

Public Sub aaa()
Dim loLetzte As Long

With Worksheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, "AN").End(xlUp).Row
    .Range("A3:A" & loLetzte).Value = .Range("AN3:AN" & loLetzte).Value
End With
   
End Sub

Gruß Werner

[luna101]

Hallo Werner. M
Danke für deine Hilfe. Fuktioniert
Gruss Martin