Find blank cell and copy data below into it

[MDEN]

Hi, im struggling to get this code to work.

I am trying to create something that will search through a column and find a blank space, after it has done this I need it to copy the cell below into the blank cell above.. is this possible?
Also will it produce an error if the cell below a blank cell is blank?

Apologies if this doesnt make complete sense

Thanks

Martin

[patel45]

you can find the last not empy cell in column A with
LR = Cells(Rows.Count, "A").End(xlUp).Row