vba - アクティブなセルに基づいて 2 つの列を選択していますか?

Question

2 つのグループの長い範囲の列で条件付き書式を実行しようとしています。アクティブ セルとその隣の列から列全体を選択するマクロを記録して、条件付き書式を適用する方法がわかりません。次に、セルを 2 つ下に移動して繰り返します。

これは私がこれまでに持っているものですが、それらの特定のセルに戻り続けるので、右に移動する必要があります 2.

Sub findDups()
'
' findDups Macro

    ActiveCell.EntireColumn.Select

    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("M1").Select

    Worksheets("User Check List").Activate
    Selection.Offset(0, 2).Select
End Sub