Help with Code: Append multiple Selections

[Capt.Ragnar]

I have a workbook with 219 worksheets. The data I need from each resides in the same range (A53:O57).

I cannot figure out what is wrong with the following code...

<CODE>

Sub SummurizeSheets()
Dim ws As Worksheet

Application.ScreenUpdating = False
Sheets("Summary").Activate

For Each ws In Worksheets
If ws.Name <> "Summary" Then
ws.Range("a53:O57").Copy
Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
Next ws
End Sub

<CODE>
<CODE>

When I run the macro I only get the selection from the last worksheet none from the rest. Me thinks it is pasting over the same area in the "Summary" worksheet, but I cannot tell.

</CODE></CODE></CODE>

 

[Colin Legg]

<code><code><code>When I run the macro I only get the selection from the last worksheet none from the rest. Me thinks it is pasting over the same area in the "Summary" worksheet, but I cannot tell.

</code></code></code>

Comment out the Application.ScreenUpdating line and then step through the code by pressing the F8 button. You can watch what it does on each line to see if it will help you identify what's going wrong.

 

[Capt.Ragnar]

Yup. That was it.

Issue was the data source had a hidden column "A" with no data in it. So when the code attempted to find last line of data it was going back to the top each time after the paste.

Good call.

Thanks. Occam's razor...

 

[Colin Legg]

Well done, that was a good bit of debugging!