Cut & Paste

[Guest]

Folks:


I have one workbook open. This one workbook consists of 10 separate
spreadsheets.
In each of the spreadsheets, I have the same complex TABLE. I have
highlighted
(selected) the table within each of the 10 spreadsheets. Here is my goal:

I would like to move all 10 identical tables into one single sheet. The
tables should be
one below the others.


* Thanks for all ideas ?





Thanks,
John.

 

[Don Guillett]

something like this

Sub Copytablestonewmaster()
Sheets.Add Type:="Worksheet"
ActiveSheet.Name = "Master"

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Master" Then
x = Cells(Rows.Count, "a").End(xlUp).Row + 1
ws.Range("a4:c5").Copy Cells(x, 1)
End If
Next ws

End Sub