Macro Collapses At Pasting Function

I have a workbook that has a worksheet for each day in a year and a worksheet at the end called "RollingData". Every so often I would like to select the same range of cells on each worksheet and copy it to the RollingData worksheet, placing it at the end of the last data. Right now, the macro will do that for a selected sheet. I would like to select several sheets and run the macro on them. When I try to step through it, it fails. I get an error saying that the Paste size and Copy size are not the same and to select a single cell. The macro leaves the first blank cell in the first blank row on worksheet "RollingData" selected so I can't see where this won't work. Here is the