Hallo Nighty,
das ist meine Lösung, vielleicht war auch meine Frage falsch formuliert. :-)
Dim lngLast As Long
lngLast = Cells(Rows.Count, 2).End(xlUp).Row
Range("C2").Autofill Destination:=Range("C2:C" & lngLast) ', Type:=xlFillDefault
Range("D2").Autofill Destination:=Range("D2:D" & lngLast) ', Type:=xlFillDefault
Range("E2").Autofill Destination:=Range("E2:E" & lngLast) ', Type:=xlFillDefault
Range("F2").Autofill Destination:=Range("F2:F" & lngLast) ', Type:=xlFillDefault
Range("G2").Autofill Destination:=Range("G2:G" & lngLast) ', Type:=xlFillDefault
Range("A2").Select
Aber trotzdem Danke für deine Anregungen.
Gruß Tommi