Stopping Autofill at alst line of file

[leskoby]

I use the code below to autofill columns,(using formulas), which is done successfully except that it creates garbage past the last line of the file.

Range("V2:AF2").AutoFill Destination:=Range("V2", Range("AF2").End(xlDown)(0))

How can I stop it doing this to row 65536?
Thanks

[mudraker]

leskoby

There are several ways to do this. Here is one way

This finds last row with data in it then autofills down to that row

Dim GetBottomRow As Long
GetBottomRow = Cells.Find(what:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row


Range("v2:af2").AutoFill Destination:= _
Range("v2:af" & GetBottomRow), Type:=xlFillDefault

[leskoby]

Thanks Mudraker, worked like a charm.