Take used cells in column B and add under column A... then on to last used column.

I have a large amount of data spread over an ever changing number of rows and columns.

I need to cut the data from column B and add under the data already in column A, then go to column C cut the data and add under column A....... then on and on until there is no data left in any other column but A.

I have started but neither examples will work........ and then how do i tell it how many rows and columns have data in......

Sub test()


Range("B1:B6").Copy
Sheets(1).Range("A1").End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("C1:C6").Copy
Sheets(1).Range("A1").End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Sub test()


Range("B1:B6").Cut
Sheets("Sheet1").Range("A" & .End(xlUp)).Paste

Range("C1:C6").Cut
Sheets("Sheet1").Range("A1").End(xlUp).Paste


End Sub

HELP......

Try:

Sub RunMe()
Dim LR As Long, LC As Long, iCol As Long

LC = Cells(1, Columns.Count).End(xlToLeft).Column

For iCol = 2 To LC
    LR = Cells(Rows.Count, iCol).End(xlUp).Row
    Range(Cells(1, iCol), Cells(LR, iCol)).Cut Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Next iCol

End Sub

Yes yes yes - Thank you.

I don't understand it but thank you...