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
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