VBA code to Copy column having blank cells in between Filled cells

[Tejas Kore]

Hi,
I am facing issue while copying a column with blank cells in between filled cells.
Here I recorded one macro which looks like this -
Sub Test1()
'
' Test1 Macro
'Range("H1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("M1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

If you go by this function it will copydata till that cell after which first blank cell appears . Here I used Ctrl+Shift+(Down Arrow)

 

[Joe4]

So are you saying that you want to copy ALL the way down to the last populated cell in column H?
Then you want to work your way up from the bottom instead of down from the top.

Here is one way:

Sub Test1()
'
' Test1 Macro
'Range("H1").Select
Range(Selection, Cells(Rows.Count, "H").End(xlUp)).Copy Range("M1")

End Sub

 

[Tejas Kore]

Hats off to you man. You understood what I wanted and replied back quickly. From past two hours I was working on it and didn't reach to anything.
Thanks a lot !!!!

 

[Joe4]

You are welcome!
Glad I was able to help.