Macro to copy the data from all of the sheets in one workbook over to one sheet in another

Good evening all,

I asked a similar question before, and closed the thread, but my computer just doesn't have the horsepower to run all of the sheets and the formulas and put them together on one sheet in the same workbook.

I was wondering if it would be possible to take the identically arranged sheets from one book and paste the VALUES over to One page in another book.

I'm guessing you'd need to know the directory of the workbook and the title?

Below is the macro i run to compile in to one page in same workbook: (Summary3 is an arbitrary name for the new page, HEADERS is the name of the page that holds the headers for all of the categories, 2014 URL, RAP and DB_Template are the three sheets that I don't want to copy in to this new page)

The headers are in each sheet from B2:DL2 and the data would be from B3:DL75.

I am looking for an update to the following macro that would paste all of the VALUES from each of these sheets in to a new workbook on a single page.

Any help from you experts would be fascinating.

Sub CopyAll()
Dim ws As Worksheet
Sheets.Add.Name = "Summary3"
Sheets("Summary3").rows(1).value = Sheets("Headers").rows(1).value
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
If ws.Name <> "2014 URL" And ws.Name <> "RAP" And ws.Name <> "DB_Template" And ws.Name <> "Summary" Then
Range("B2:DL75").Copy Sheets("Summary3").Range("B" & Rows.count).End(3)(2)
End If
Next ws
End Sub

I'm sorry.

I broke the rules.

Here's the code I use originally-- the explanation is below:

Sub CopyAll()
Dim ws As Worksheet
Sheets.Add.Name = "Summary3"
Sheets("Summary3").rows(1).value = Sheets("Headers").rows(1).value
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
If ws.Name <> "2014 URL" And ws.Name <> "RAP" And ws.Name <> "DB_Template" And ws.Name <> "Summary" Then
Range("B2:DL75").Copy Sheets("Summary3").Range("B" & Rows.count).End(3)(2)
End If
Next ws
End Sub

Originally Posted by amweisberg

Good evening all,

I asked a similar question before, and closed the thread, but my computer just doesn't have the horsepower to run all of the sheets and the formulas and put them together on one sheet in the same workbook.

I was wondering if it would be possible to take the identically arranged sheets from one book and paste the VALUES over to One page in another book.

I'm guessing you'd need to know the directory of the workbook and the title?

Below is the macro i run to compile in to one page in same workbook: (Summary3 is an arbitrary name for the new page, HEADERS is the name of the page that holds the headers for all of the categories, 2014 URL, RAP and DB_Template are the three sheets that I don't want to copy in to this new page)

The headers are in each sheet from B2:DL2 and the data would be from B3:DL75.

I am looking for an update to the following macro that would paste all of the VALUES from each of these sheets in to a new workbook on a single page.

Any help from you experts would be fascinating.

Sub CopyAll()
Dim ws As Worksheet
Sheets.Add.Name = "Summary3"
Sheets("Summary3").rows(1).value = Sheets("Headers").rows(1).value
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
If ws.Name <> "2014 URL" And ws.Name <> "RAP" And ws.Name <> "DB_Template" And ws.Name <> "Summary" Then
Range("B2:DL75").Copy Sheets("Summary3").Range("B" & Rows.count).End(3)(2)
End If
Next ws
End Sub