CODE TO PASTE NON BLANK CELLS ONLY

'Selection column A and run the below code in module

Sub PasteNotBlanks()
If Selection.Columns.Count > 1 Then
msgbox "Please selection one column."
Else
Selection.SpecialCells(xlCellTypeConstants).Copy Destination:=Range("B1")
End If
End Sub