View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Autofill Help Please

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Chris" wrote in message
...
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 ***