Autofill help
 

I need a piece of code which will go to the last cell (with data) in column
A and then AutoFill down one cell.

Autofill help
 

Patrick Simonds,
range("A" & rows.Count).End(xlUp).EntireRow.AutoFill _
destination:=range("A"&rows.Count).End(xlUp).Entir eRow.Resize(2)
to autofill columnA only remove ".EntireRow"
Cecil

"Patrick Simonds" wrote in message
...
I need a piece of code which will go to the last cell (with data) in
column
A and then AutoFill down one cell.