I was wondering if someone would be able to help modify the code that AAE posted for whitegoldf150's problem (http://www.ozgrid.com/forum/showthread.php?t=87516) - I'm trying to do the same thing, except I have blank cells that are being skipped when I run the script. I'd like to return even the blank cells so that every column is filled to the same last cell (as many as there are pages). (I've already replicated it to return other values in other columns so the spacing is off). Also is there is a way to fill values for a specific set of sheets (lets say all sheets before the summary sheet) instead of inserting excluded sheet names after the inequality "If ws.Name <> "Sheet1""?
Sub MakeSummaryTable() Dim ws As Worksheet Application.ScreenUpdating = False Sheets("Sheet1").Activate For Each ws In Worksheets If ws.Name <> "Sheet1" Then ws.Range("C1").Copy ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0) End If Next ws Application.ScreenUpdating = True End Sub