Combine multiple sheets into one

[bjohnsonac]

Been quite a while since I have created macros from scratch, so I need some help getting my brain back into it. I have a workbook that has multiple tabs, each with a different number of rows that will be occupied with data each month. I need to write a macro that will copy the rows from each sheet that has info in column A, into the new sheet I have created at the beginning of the Workbook. I already wrote the simple macro to create the new sheet titled "Summary", now need help getting the one together to search each sheet for the data and copy to the next available row in the "Summary Sheet".
Thanks for helping me get back into the swing of things!
Beth

[JLGWhiz]

Based on what I could glean from the OP.

Sub t()
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> Sheets(1).Name Then
            sh.UsedRange.AutoFilter 1, "<>"
            sh.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy
            Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
        End If
        sh.AutoFilterMode = False
    Next
End Sub

[bjohnsonac]

Perfect
Thanks!