Autofill Help Please



Hello, could someone please help me with a autofill macro? I need a
macro to find the last cell in the worksheet named: Position and
Incumbent Data. Then select the last row from column A to column V and
autofill the data down two rows.

For example: if the last cell in column A is A502, then I need the macro
to select the data contained in cells A502 to V502 and autofill the data
into A503 to V503 and A504 to V504.

Any help is greatly appreciated.

Kind regards,


Don Guillett

try this

Sub copylastrowtocolVdown()
lr = Cells(Rows.Count, "a").End(xlUp).Row
Cells(lr, 1).Resize(, 22).Copy Cells(lr, 1).Resize(3)
End Sub

Sub copylastrowdown()'Entire row
lr = Cells(Rows.Count, "a").End(xlUp).Row
Rows(lr).Copy Rows(lr).Resize(3)
End Sub

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question