I have multuple sheets in one workbook. I want to consolidate F1:F47 in each of the 4 sheets and list them in coloumns in the Summary sheet. I used the code below and I am able to get the results but they are sacked into one coloumn.
Sub SummarizeSheets()
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("Summary").Activate
For Each ws In Worksheets
If ws.Name <> "Summary" Then
ws.Range("F1:F47").Copy
ActiveSheet.Paste Range("A65536").End(xlUp).Offset(2, 0)
End If
Next ws
End Sub
Please help
Thanks,
Brett
Bookmarks