I have a workbook with a sheet for each month of the year. I want to combine column A from the all the monthly Sheets but not the other three sheets (Event Totals, Monthly Totals, and Vendors 2017) into one sheet on the Event Totals sheet. I have included my code below. I am currently getting an error on If sh.Name <> "Event Totals" Or "Monthly Totals" Or "Vendors 2017" Then as well as Last = LastRow(sumSht). I would also like to add some code to the CopyRng to only copy the cells in column A from the monthly sheets which have data.
Bookmarks