Copy cell to one cell below

[Bob1978]

Hi,

I have been looking on line, but can't seem to come up with a solution for this.

I have a marco that will find the first cell with no data in, in column E, see my script.

Sub test_2()
'
' test_2 Macro
'
Cells(Cells(Rows.Count, "E").End(xlUp).Row + 1, "E").Select
End Sub

But I now need to copy the cell above it into this cell

e.g. if the first empty cell is E35 (35 it isn't always the last row), then I need to go up to E34 (the cell above) copy that cell and paste it in E35.

However, with my limited skills I haven't been able to do this.

If someone knows a way of doing this it would help me out a lot.

Thanks in advance

Bob

 

[VoG]

Try

Sub test_2()
'
' test_2 Macro
'
With Cells(Cells(Rows.Count, "E").End(xlUp).Row + 1, "E")
    .Value = .Offset(-1).Value
End With
End Sub

 

[Bob1978]

That works Brilliantly,

Thank you