Combine Data from Multiple Sheets into one Sheet

Thank you If sh.Name <> "Event Totals" Or sh.Name <> "Monthly Totals" Or sh.Name <> "Vendors 2017" Then fixed that error.

If I change Dim i back to Dim Long will Last = LastRow(sumSht) work properly?

Also is there anything I can add to CopyRng to only select cells in Column A with data to be copied?

I used your code and it does copy and it only copies cells with data. But there is one problem and one addition I need.

Problem - it copies all the monthly sheets and then Vendors 2017 skips a space and then copies all the monthly sheets again along with Vendors 2017 and Monthly Totals.

I need to start copying at Row 2 since all my sheets have headers.

Please attach a sample. With out seeing the data, we are going around the circle.

Here is my file with some of the months removed and some sample data. Thank You.

I have amended the code, but you need to have a header in the events sheet.

AB33 Thank You so much for all your help.

There is a minor error.
Please change this line

If CopyRng.Rows.Count > 2 Then

INTO

If CopyRng.Rows.Count > 1 Then

AB33 I made that change but I notice after I did that it now includes the Header from March and April and if I only have one row of data on these sheets that data is not included.

Sorry!
Try this line instead

If sh.Range("A" & Rows.Count).End(xlUp).Row > 1 Then

AB33 that was it. You are a genius.