Find next blank cell and fill with above value

[superbob]

Hi,

I'm looking to write a macro that will find the next blank (empty) cell in column A and then copy the value from the above cell and paste it into that blank cell.

So for example, Column A has 10 rows of data and in cell A11 I want to copy whatever value is in A10 and paste this into A11.

Thanks

[DonkeyOte]

Perhaps... based on your example:

With Cells(Rows.Count,"A").End(xlUp)
    .Resize(2).Value = .Value
End With

[superbob]

Fantastic - works perfectly!!!

Thank you very much!