We clarified our own misunderstanding and rewrite a few line thus> Set mws = Sheets(1)> Set mrng = Range(mws.Cells(2, 2), mws.Cells(2, 2).End(xlDown))> Set cws = Sheets(2)> Set crng = Range(cws.Cells(2, 2), cws.Cells(2, 2).End(xlDown))