Either fully qualify Cells or try this.
Cells(1, 1).Copy Sheets("Pasted Zip Codes").Cells(3, 1).Resize(, 15)