Sub moving()
ActiveCell.Cut Destination:=Range("A65536").End(xlUp).Offset(1, 0)
End Sub


Adrian wrote:

I need a macro that will take the active cell to the next
blank cell in column A. I can make it go to the last cell
but cannot restrict it to a column. Help.