Stack up multiple columns into one VBA

[pedexe90]

Hi everyone,

Can someone please help,

So I have been using this stack up VBA code for the past a few months and everything seemed to work fine. Today, when I tried it, it left gap. So the idea here is to stack up multiple columns into a single column. The issue is that the code misses the first cell of the second column when stacking up and leaves an empty cell instead of the first value (first cell of column G:G.)

Sub StackUp()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim Lastrowa As Long
    For i = 1 To 12
        Lastrow = Cells(Rows.Count, Choose(i, "C", "G", "K", "O", "S", "W", "AA", "AE", "AI", "AM", "AQ", "AU")).End(xlUp).Row + 1
        If i = 1 Then
            Lastrowa = 2
        Else
        Lastrowa = Cells(Rows.Count, "AY").End(xlUp).Row 'mod
        End If
        Range(Cells(2, Choose(i, "C", "G", "K", "O", "S", "W", "AA", "AE", "AI", "AM", "AQ", "AU")), Cells(Lastrow, Choose(i, "C", "G", "K", "O", "S", "W", "AA", "AE", "AI", "AM", "AQ", "AU"))).Copy Cells(Lastrowa + 1, "AY")
    Next
Application.ScreenUpdating = True
End Sub

 

[Fluff]

Do you mean that G2 does not copied?
If so is that part of a merged cell?

 

[JackDanIce]

Add following line before ScreenUpdating = True

Columns("AY").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlup

 

[pedexe90]

Do you mean that G2 does not copied?
If so is that part of a merged cell?

Yes G2 which is the first cell with value in coloumn G:G.

 

[pedexe90]

And no nothing is merged.

 

[Fluff]

Does C2, K2, O2 etc get copied over?
What is in G2 a value or a formula?

 

[pedexe90]

Does C2, K2, O2 etc get copied over?
What is in G2 a value or a formula?

Thanks I fixed it. But I have to delete the previously stacked up formula and run the vba.