vba - VBA マクロを使用した動的条件付き書式

Question

私はVBAにかなり慣れていません。ActiveCell の列のセルを条件付きで書式設定して、ActiveCell の右側にある 4 列の列に存在しない場合は青色で強調表示されるようにします。特定の列セットに対してこれを実行するマクロを記録しましたが、ActiveCell の位置に基づいて任意の列セットに対して機能するように変更するのに問題があります。記録されたコードを以下に示します

    Range("Y8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=COUNTIF(AC:AC, Y8)=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 15773696
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveWindow.SmallScroll Down:=0

Y8 が ActiveCell で、AC:AC が ActiveCell の右の 4 列になるように、これを変更する方法を教えてください。ありがとうございました。