Simple Loop

[matthewjapp]

Hi there I have 26 columns (A:Z) all have 2500 rows

I need to get all the columns into 1 so that after 1st loop records in A2:A2500 with colum B added becomes A2:A4999, after column c is added to A it records become A2:A7498 etc

Can anyone point me in the right directioon of my first loop?

Thanks

 

[VoG]

Try

Sub test()
Dim i As Long
For i = 2 To 26
    Range(Cells(1, i), Cells(2500, i)).Copy Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next i
End Sub

 

[p45cal]

Sub blah2()
Destrow = 2501
For Each colm In Range("B2:Z2500").Columns
  colm.Copy Range("A" & Destrow)
  Destrow = Destrow + 2499
Next colm
'Range("B1:Z2500").Clear
End Sub

 

[matthewjapp]

Thank you both, I'm going to not only use this in my work, but use this as my foundation for future loop programming, thanks again, Matthew