Copy Data From Column B and paste in Column A

[Chandresh]

HI All,

Need help in a macro which will copy all the data from column B and paste after the last row in column A.

I have the following data :

Cloumn A	Cloumn B
ABC	100
ZYZ	200
	300
HGF

<colgroup><col width="64" style="width:48pt" span="2"> </colgroup><tbody>
</tbody>

macro should copy data from column B and paste below column A.

Below is the manual out put

Cloumn A	Cloumn B
ABC	100
ZYZ	200
	300
HGF
100
200
300

<colgroup><col width="64" style="width:48pt" span="2"> </colgroup><tbody>
</tbody>

thanks
Chandresh

 

[My Aswer Is This]

Try this:

Sub Copy_Data()
'Modified 9/3/2018 3:22 AM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Dim Lastrowb As Long
Lastrowb = Cells(Rows.Count, "B").End(xlUp).Row
Cells(1, 2).Resize(Lastrowb).Copy Cells(Lastrow, 1)
Application.ScreenUpdating = True
End Sub

 

[Chandresh]

​Thanks for your help

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

​Thanks for your help