suche variable

Sub Kopiertest2()
'letzte gebrauchte Zelle in Spalte E
Range("E65536").End(xlUp).Select
'Bereich von A bis D von letzter gebrauchter Zelle kopieren
With ActiveCell
Range(.Offset(0, -1), .Offset(0, -4)).Copy
End With
'letzte gebrauchte Zelle in Spalte H
'und eine nach unten ermitteln und markieren
Range("H65536").End(xlUp).Offset(1, 0).Select
'Ab der immer noch aktiven Zelle H
'das kopierte einfügen
ActiveCell.PasteSpecial
End Sub