overskrivning af betinget formatering

Jeg har lige lært at lave betinget formateringer i VBA sådan her:
Sub Test2()
  With Range("A2")
      .FormatConditions.Delete
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OG($A$1>0;$A$2="""")"
      .FormatConditions(1).Interior.ColorIndex = 3
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OG($A$1>0;$A$2>0)"
      .FormatConditions(2).Interior.ColorIndex = 15
  End With
End Sub
Men hvis jeg bruger indsæt uden at markere:kun værdier,samme format...overskriver jeg de betingede formater.
Så skal jeg afspille min makro igen,kan VBA gøre det
automatisk,måske under worksheet selection change
eller skal man gøre noget helt andet,håber i kan hjælpe.
mvh.
skodaen