Simple Copy Range Error

You haven't properly qualified all the relevant Cells properties:

With Sheets("Pasted Zip Codes")
Cells(1, 1).Copy .Range(.Cells(3, 1), .Cells(3, 15))
end with