Try changing it to this.

Set rCtySts = wkshtSource.Range(wkshtsource.Cells(lStartRow, lColTop), wkshtSource.Cells(lRow,
lColTop + 1))

You don't have a fully qualified reference with without ID'ing the Worksheet.

HTH
Cal