Excelで、条件付書式の挙動がよくわかりません。VBAスクリプトで書いたとしたらどうなるか教えてください。

A1セルが1ならばセル色を黄色にする条件付き書式です

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A$1=1"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True