Following is the link to a workbook for a Poster who had a similar query a few months ago. See if this is at least close to what you were wanting to do. I've changed the set up a little in an attempt to mirror your work book.
Click on the "RUN" button to see it work.
Th code associated with the sample is as follows:-
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "Main" Then
.AutoFilter 1, ">1"
Sheet1.Range("A" & Rows.Count).End(3)(2).PasteSpecial xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Let us know what you think.