Only copy Column B (INCLUDING THE TITLE ROW) to the last row of data in Column A

[VBAProIWish]

Hello All,

I have this code below that copies Column B, but it starts in cell B2. I need it to copy the title row (Cell B1) as well.

 .Range("B2").Copy Destination:=.Range("B2:B" & .Range("A" & Rows.Count).End(xlUp).Row)

I tried this...

 .Range("B:B").Copy Destination:=.Range("B:B" & .Range("A" & Rows.Count).End(xlUp).Row)

...but it didn't work.


Does anyone know how to copy a column (including the title row; row 1) but only copy down to the last row of data in column A?

Thanks much

 

[VBAProIWish]

Hi My Aswer is This,

I initially said "A" and "B" for simplicity sake; I just changed the letters and all worked well. Even though the code provided by Jonmo1 worked, I still copied your code and saved it for future reference as well.

I just don't want Mail Merge to copy unnecessary blank rows of data and you have all provided me with great insight.

I would love to start giving "likes" to each of you, but I don't know how. I'm sure it's something very obvious that I just haven't seen.

Thanks again to everyone!

 

[My Aswer Is This]

Ok. Glad you have things working for you. Take care and come back to Mr. Excel next time you need help.

Hi My Aswer is This,

I initially said "A" and "B" for simplicity sake; I just changed the letters and all worked well. Even though the code provided by Jonmo1 worked, I still copied your code and saved it for future reference as well.

I just don't want Mail Merge to copy unnecessary blank rows of data and you have all provided me with great insight.

I would love to start giving "likes" to each of you, but I don't know how. I'm sure it's something very obvious that I just haven't seen.

Thanks again to everyone!