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.

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.

Cells(Rows.Count,"A").End(xlUp).offset(1,0).select

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Adrian" wrote in message
...
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.