Vermutlich geht's um einiges einfacher - bin ebenso kein Excel-Profi, daher nur meine Variante:
Sub Kopieren()
Dim Letzte_Zelle As Long
Dim Kopierbereich As String
Letzte_Zelle = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Kopierbereich = "a1:a" & Letzte_Zelle
Range(Kopierbereich).Select
Selection.Copy
End Sub
PS: Sind nach Leerzellen in Spalte A weitere gefüllte Zellen, wird immer die letzte davon genommen und die Leerzellen daher mit kopiert!
Gruß Europe
|