VBA Code Paste in Next empty Cell

[P_85]

Hello,

I am trying to create a macro to cut and paste data from several columns and paste it into the next empty cell in Column A.

There are 10 columns on the worksheet. I would like to cut all the data from the 10 columns and paste it all into Column A. The headers for these columns are the same (ProductID). The worksheet I am working on is called Archive

I am totally stuck on how to do this. Any help would be greatly appreciated.

Many Thanks

 

[ayazgreat]

Hi
Welcome to board .

try Vog's Code for the same

Sub ayaz2()
Dim LR1 As Long, LR2 As Long, i As Integer, LC As Integer
LC = Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 2 To LC
    LR1 = Cells(Rows.Count, 1).End(xlUp).Row
    LR2 = Cells(Rows.Count, i).End(xlUp).Row
    Range(Cells(2, i), Cells(LR2, i)).Copy Destination:=Cells(LR1 + 1, 1)
Next i
Application.CutCopyMode = False
Range(Cells(1, 2), Cells(Rows.Count, LC)).Delete
Application.ScreenUpdating = True
Application.Calculation = xlCalculationSemiautomatic
End Sub

 

[P_85]

Thanks very much for your help. It has helped me greatly!

 

[ayazgreat]

You are welcom and thanks for Vog