How would I delete the blank pages of a worksheet that remain after the cells that contain data? I have a macro that reads data from an unformatted worksheet into another formatted worksheet. The amount of data coming into the spreadsheet varies. When I run a report with a small amount of data after running one with a large amount of data there are a lot of empty pages. I can set the cells to blank before filling the spreadsheet, IE:Worksheets("Rebate").Range("A2:J7000") = "". I'm just wondering if I can delete the remaining empty cells. I want to do this in the macro.

Thanks