One way
Sub copyactivecelltonextcellincold()
x = Cells(Rows.Count, "D").End(xlUp).Row
nar = Range("d1:d" & x).Find("").Row
ActiveCell.Copy Cells(nar, "d")
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Guy" wrote in message
...
Hi Ya'll,
I need a macro that will insert the selected cell value into "D2", or if
not empty, the next cell in range (D2:D65) that is empty.

Thanks for all the help everyone has given me.
Guy