Auto fill

[Guest]

I've always used this code at the last coulmn with blank data and it worked. So you're 15,000 rows will within the scroll range. Right know the range is 50,000+.
Dim LastRow As Lon
Dim LastCol As Lon
Dim rng As Rang

With ActiveShee
Set rng = .UsedRange 'try to reset lastused cel
With rn
LastRow = .Rows(.Rows.Count).Ro
LastCol = .Columns(.Columns.Count).Colum
End Wit

.Range("F1").AutoFill
Destination:=.Range("F1:F" & LastRow), Type:=xlFillDefaul

End Wit

End Su

Any ideas
Thanks
DJ

 

[Frank Kabel]

Hi
if I understood you correctly you may have to re-set the used range.
See
http://www.contextures.com/xlfaqApp.html#Unused