VBA copy range blank cells

[griospa]

Hello,
Iam trying to copy/ paste a range with blank cells. Codes as follows:
Sub Original_Data_Transfer()
'
' Transfer the data pasted by user to the Download worksheet
'
Sheets("Paste Here").Select

Application.ScreenUpdating = False

Range("A4:N" & Range("N4").End(xlDown).Row).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy

Column N has blanks

Please help.
Thanks