質問者が納得御質問文に忠実に2つのセル範囲を指定してから実行するように作成してみました。
(ただし、一致しない部分の色は xlColorIndexNone とするよう、勝手に処理を加えています。)
参考になさってみてください。
Sub Sample()
Dim R As Range
If Selection.Areas.Count <> 2 Then
MsgBox ("2つの範囲を選択してから実行してください")
Exit Sub
End If
If Selection....
質問者が納得マクロの例です。
データ1の場合
Dim i As Long
Dim j As Long
j = 2
For i = 7 To 10003 Step 12
Sheets("Sheet1").Range("A" & i).Value = Sheets("Sheet2").Range("C" & j).Value
j = j + 8
Next i
データ2、データ3は応用してください。