Autofill Destination range open

J

J.W. Aldridge

recorded this line in a macro....

Need for this to read as an open range instead of stopping at F784.
Will always start at A2- F2 but last row (F784) may change..


Selection.AutoFill Destination:=Range("A2:F784")
 
M

Michael

To find the last row based on F

iLastRow=Range("F65536").end(xlup).row
Then you substitute in your instruction:
Selection.AutoFill Destination:=Range("A2:F" & iLastRow)
 
M

mudraker

The suggestion in the previous reply is not fool proof in all version
of Excel 5 & later

And it assumes column A has an entry in the last used row
try replacing
iLastRow=Range("F65536").end(xlup).row

with this code which finds last used row on sheet

lLR=Cells.Find(what:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
range("a2:f2").AutoFill Destination:=Range("A2:F" & lLR
 
Top