That has no relevance.

Are both in same sheet? If not, remove "With..." and "End With" line and prefix each .Range() with Sheets("WorksheetName") that each cell belongs to.