vba copy and paste data from worksheet

[tinner777]

Hi,

i have a table that is 26 column's long. This table is then replicated 52 times to form a year. I input data into rows 7 - 14 (1 week plus a misc column).

Is there any way I can copy just the data for the whole 52 weeks?

Thanks

 

[ravishankar]

you can try the following codes which summarizes all sheets into a summary sheet with corresponding sheet names in column A. Hope that helps.

Sub TINNER()
Dim a As Integer, x As Integer
Sheets.Add.Name = "summary"
For a = 1 To Sheets.Count
Sheets(a).UsedRange.Copy
x = Sheets("summary").Cells(Rows.Count, 2).End(xlUp).Row + 2
Sheets("summary").Range("A" & x - 1) = Sheets(a).Name
Sheets("summary").Range("B" & x).PasteSpecial
End If
MsgBox "complete"
End Sub

ravishankar