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.