you should just be able to replace "Selection" with "Range()", for example:

With Range("A:D").FormatConditions(1)
    With .Interior
        .PatternColorIndex = xlAutomatic
        .Color = 10092543
        .TintAndShade = 0
    End With
    .StopIfTrue = False\`
End With