Combine all worksheets into a single worksheet in a new workbook

I have the following code to copy one sheet at a time to a "master" worksheet (Toyota") in the same workbook

What I need to do is copy all worksheets onto a single worksheet in a new workbook (only rows with data in column A)

In this example "RAV4" is the source sheet

Sub CombineWS()

'Combine all worksheets into one and remove blank rows


Intersect(Sheets("RAV4").Columns("A:AC"), Sheets("RAV4"). _
                                              Columns("A").SpecialCells(xlCellTypeConstants). _
                                              EntireRow).Copy Sheets("Toyota").Cells(Rows.Count, 1).End(xlUp)(2)
End Sub

Thanks in advance


Alan