Stack data in one column from multiple sheets

[NateD1]

Hi i need some help with creating a code to do the below if possible.

I need to copy data from "Column H" (excluding top row header). from multiple sheets in the same workbook (all the data layouts are the same except for 2 sheets), for this example i need data from "H" in sheet numbers 3,4,5,6,7,8,9,10. however exclude copying data from sheets 11 and 12 as the data is different on those two sheets. then i need all the data copied and stacked into column B in sheet named "Summary" (sheet1)

thanks in advanced

 

[Dave Patton]

You can probably do this with Excel functions. Do you require VBA?

 

[NateD1]

You can probably do this with Excel functions. Do you require VBA?

Was looking for a way as an import button option when new data is added.
I have found the below code which seems to work.

Sub CopyData()
Dim ws  As Worksheet, _
    LR1 As Long, _
    LR2 As Long
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
'sheets to ignore 
    If ws.Name <> "Summary" And ws.Name <> "Import" Then
        LR1 = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row + 1
        LR2 = ws.Range("A" & Rows.Count).End(xlUp).Row
'Range to be copied 
        ws.Range("I2:I" & LR2).Copy Destination:=Sheets("Summary").Range("A" & LR1)
    End If
Next ws

Application.ScreenUpdating = True
End Sub