Change to a Specified Range

[Anne Troy]

I'm using this code from the "more than 3" conditional formats code, and I want to specify it to work only on A2 and down:

On Error Resume Next
    Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1)
    On Error GoTo 0
    If Rng1 Is Nothing Then
        Set Rng1 = Range(Target.Address)
    Else
        Set Rng1 = Union(Range(Target.Address), Rng1)

I also assume I don't need this line 'cause I'm doing an aging report:

Option Compare Text 'A=a, B=b, ... Z=z