Excel Macro for copy paste columns of data from many columns into one column

[questionmansm]

Hi, I am a newbie here.


I've been searching here, but can't find the exact thing. I know how to do macros somewhat but am a bit rusty with it and having a hard time.


Basically, here is what I am trying to do. I hope someone here can help.


I have a workbook with 250 columns, each column has the same amount of rows. I want to copy each column into column A.


So, column A has data in rows (A1 to A15) as values, then
(A16 to A30) will have column B data copy & pasted as values,
(A30 to A45) have column C data copy & pasted as values, and the list goes on.



Can someone please help with this? Thanks!

 

[JLGWhiz]

Copy this to your standard code module1.

Sub lineEmUp()
Dim sh As Worksheet, lc As Long
Set sh = Sheets(1) 'Edit sheet name
lc = sh.Cells.Find("*", sh.Range("A1"), xlFormulas, xlPart, xlByRows, xlPrevious).Column
    For i = 2 To lc
        sh.Cells(1, i).Resize(15, 1).Cut sh.Cells(Rows.Count, 1).End(xlUp)(2)
    Next
End Sub

 

[questionmansm]

Thank so much, it worked!

 

[JLGWhiz]

Thank so much, it worked!

You're welcome,
Regards, JLG