ExceL VBA Question, Help Please

[EagerToLearn]

Hello there,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I am still a beginner and need help form the pros,<o></o>
Where I work, I have a big excel book contains of like 45 tabs.<o></o>
I need to copy and paste certain section form each tab and consolidate it in one tab (on top of each other, like to start pasting the section at the row where you end pasting last section).<o></o>
I was kind of able to do that. <o></o>
My problems when I had to change the tabs name in the second line on the below code to manually key in every other tab name (in this case 1100, then 1200 and so on)<o></o>
Is there smarter way to do that?<o></o>
Thanks for your help.


<o></o>
ActiveCell.Select
Sheets("1100").Select
Range("A6:P255").Select
Selection.Copy
Sheets("BudgetUpload").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=225
ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select

 

[Jonmo1]

Welcome to the board...

Try

Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "BudgetUpload" Then
        ws.Range("A6:P255").Copy
        Sheets("BudgetUpload").Range("A" & Rows.Count).End(xlUp).Offset(1,0).PasteSpecial xlPasteValues
    End If
Next ws

 

[EagerToLearn]

WOOOOOOOO, that was fast and right to the point, really demonstrate high standers.
You saved me time and effot.
I owe you a big thank you.