rrtts,
Save your workbook as Test.xls
In TEST.xls put the word AFTER in cell A20
Copy the following code into a Module in Test.xls
Option Explicit
Sub MultipleColumnsToSingleColumn()
' MultipleColumnsToSingleColumn Macro
' Macro created 12/06/2006 by Stanley D. Grom, Jr.
Dim lngLastColumn As Long
Dim c As Long
Dim r As Long
Dim m As Long
m = 21
Application.ScreenUpdating = False
Sheets("Sheet1").Cells(2, 1).Select
lngLastColumn = Sheets("Sheet1").Range("IV2").End(xlToLeft).Column
For c = 1 To lngLastColumn
For r = 2 To 18
If Cells(r, c).Value <> "" Then
Cells(r, c).Copy Destination:=Cells(m, 1)
m = m + 1
End If
Next r
Next c
Application.ScreenUpdating = True
End Sub
Have a great day,
Stan
I am using Windows XP Professional SP2 and Excel 2003 SP2.