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......