Autofill Help Please

[Chris]

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,

Chris.

*** Sent via Developersdex http://www.developersdex.com ***

 

[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