1. I added some DATA 60 to Sheet2. As long as they're in a separate group and you adjust these lines
2. It's the number on DATAxx that is used to link the other dataSet rOriginal = Worksheets("Sheet 1").Range("A:A").SpecialCells(xlCellTypeConstants) Set rReplace = Worksheets("Sheet 2").Range("A:F").SpecialCells(xlCellTypeConstants)