Macro to find next blank cell in a particular column and place there to copy data.

Si quieres la primera celda en blanco hacia la derecha

Sub blancoder()
'Por.Dam
lin = Range("B3").Row
ucol = Cells(lin, Columns.Count).End(xlToLeft).Column + 1
Cells(lin, ucol).Select
End Sub

Si quieres la primera celda en blanco hacia abajo

Sub blancoabajo()
'Por.Dam
col = Range("B3").Column
ufila = Cells(Rows.Count, col).End(xlUp).Row + 1
Cells(ufila, col).Select
End Sub

Saludos. Dam

Si es lo que necesitas.