TaskMaster
Board Regular
- Joined
- Oct 15, 2020
- Messages
- 55
- Office Version
- 365
- 2016
- Platform
- Windows
Hi all,
I am wondering if you can help me with a query im stuck on. I am wanting to copy the contents of column B in each tab and copy them into column A of my summary tab beneath each other. I have tried doing this myself with little success, hoping you can help me decipher what im doing wrong or suggest a better way. Thank you in advance.
I am wondering if you can help me with a query im stuck on. I am wanting to copy the contents of column B in each tab and copy them into column A of my summary tab beneath each other. I have tried doing this myself with little success, hoping you can help me decipher what im doing wrong or suggest a better way. Thank you in advance.
VBA Code:
Sub Summary()
Dim WS As Worksheet
For Each WS In Worksheets
Select Case WS.Name
Case "Summary", "Deal Numbers" 'ignore list
Case Else
WS.Select
LR = Sheets(WS).Cells(.Rows.Count, "B").End(xlUp).Row
.Range("B2:" & LR).Copy
LastRow = Sheets("Summary").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
Sheets("Summary").Range("A:" & LastRow).PasteSpecial Paste:=xlValues
DoEvents
Next WS
End Sub