Dim
rngBereich
As
Excel.Range
Dim
lngLetzteZeile
As
Long
With
ActiveSheet
lngLetzteZeile = .Cells(.Rows.Count,
"A"
).
End
(xlUp)
Set
rngBereich = .Range(.Cells(1,
"G"
), .Cells(lngLetzteZeile,
"K"
))
End
With
With
rngBereich.Rows(1)
Call
.AutoFill(Destination:=rngBereich)
End
With