Einfach Einfach aber für mich nicht!!!

Sub test()
Dim variable1

Range("e2").Select
Set tbl = ActiveCell.CurrentRegion

anzahlzeilen = tbl.Rows.Count

variable1 = ActiveCell.Offset(anzahlzeilen - 3, 0).Select
Range("ActiveCell:E2").Select

Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Und ich möchte eben von der aktiven Zelle bis e2 alles markieren. aber irgendwas stimmt mit dem activecell:e2 nicht.

Danke

mfg Sepp