Excluding Worksheets from a Workbook Copy

[WxShady13]

I have a workbook that has 3 static worksheets that are named the same in every workbook. The additional worksheets are dynamically created based on the employee name and training record selected by the supervisor. I need to copy a range of data on every worksheet but the 3 static ones (***NOTE I do not know the last row for each worksheet), onto one master worksheet so that I can then create a chart. I have the code where it will copy all the worksheets, but how do I remove the 3 static ones?

 

[WxShady13]

Question...The code you provided pastes the formula, I just need it to paste the values. I know I can use the PasteSpecial xl PasteValues but how do I incorporate this with the code you provided?

 

[Norie]

This amendement to Fluff's code will paste values, and number formats if required.

Sub ttt()
   Dim i As Long
   For i = 5 To Worksheets.Count
      With Sheets(i)
         .Range("A1:G70").Copy 
         Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
      End With
   Next i
End Sub

 

[WxShady13]

Thank you!!!

 

[WxShady13]

Not to throw a wrench in the code but I was using additional code to remove the headers when it came over so it all was a clean list. With the new code it will not remove the headers (Rows 1 & 2) from each worksheet it copies. What can I do to remove those?

 

[Fluff]

Make this change

.Range("A[COLOR=#ff0000]3[/COLOR]:G70").Copy

 

[WxShady13]

Thank you again...You all truly do not know how grateful I am for your help...

 

[Fluff]

You're welcome