failed loop code

[s4driver]

I have a macro in the attached file where I am taking selected data from the first 2 tabs and arranging it in the 3rd tab. I need another set of eyes to see why it doesn't loop thru all the rows on the first 2 tabs. It only makes it thru 1 or 2 loops. I have used this method before and it has always work just fine. the source tabs (first 2 tabs) need to remain as they are, no reformatting etc.

thanks in advance, s4

[JosephP]

Set o = wsOBlogC.Range("D5:D" & Cells(Rows.Count, 4).End(xlUp).Row)

oughta be

Set o = wsOBlogC.Range("D5:D" & wsOBlogC.Cells(Rows.Count, 4).End(xlUp).Row)

and the same for your 'set b =' line

[Colin Legg]

I guess you could go one step further and qualify the Rows property too, which would be important should the active sheet not be a worksheet.

Set o = wsOBlogC.Range("D5:D" & wsOBlogC.Cells(wsOBlogC.Rows.Count, 4).End(xlUp).Row)