VBA question

[PeCoNe]

Hallo,

I use the following code:

' Check AH position
If SumAH > 0 And (IsEmpty(Range("AA10")) Or Factor * SumAH >
Range("AA10")) Then
Range("AA10") = Factor * SumAH
End If
If Range("AA10") > 0 And SumAH < Range("AA10") Then
Beep
End If
' Check KPN position
If SumKPN > 0 And (IsEmpty(Range("AA13")) Or Factor * SumAH >
Range("AA13")) Then
Range("AA13") = Factor * SumKPN
End If
If Range("AA13") > 0 And SumKPN < Range("AA13") Then
Beep
End If
' Check PNL position
If SumPNL > 0 And (IsEmpty(Range("AA14")) Or SumPNL >
Range("AA14")) Then
Range("AA14") = SumPNL
End If
If Range("AA14") > 0 And Range("B14") < Range("AA14") Then
Beep
End If

If i insert a symbol all the addresses behind that must be changed.
How can i prevent that?

Thanks Peter Maljers