Did you look at my last response? I moved the With statement to include the
line you have in error and then added two periods so the sheet "List" is
referenced in the statement.

"J.W. Aldridge" wrote:

Run-time error '1004';
Method 'Range' of object'_Global' failed

I ran through the code as suggested...

Just as I reached the next line, I got the error message above.

Range(cell, Cells(cell.Row, "g")).Copy sh.Cells(NewRow, 1)
NewRow = NewRow + 1

I am only at line 3197 so I have plenty of room left. The rest of the
worksheet below and to the right is empty.