makroer til fortløbende ordrenr

hej

jeg har de to nedenstående makroer, som laver fortløbende ordrenr i kolonne A mhh AMPRN og Mprn foran:

Sub AMPRN()
Dim rCelle As Range
Dim dNummer As Double

ActiveSheet.Unprotect "hunter55"
Set rCelle = Range(("A" & Rows.Count)).End(xlUp)
dNummer = Len(rCelle.Value) - 5
dNummer = CDbl(Right(rCelle.Value, dNummer))
dNummer = dNummer + 1
rCelle.Offset(1, 0).Font.Color = vbBlue
rCelle.Offset(1, 0).Value = "AMPRN0" & dNummer
Set rCelle = Nothing
ActiveSheet.Protect "hunter55"

End Sub

Sub MPRN()
Dim rCelle As Range
Dim dNummer As Double

ActiveSheet.Unprotect "hunter55"
Set rCelle = Range(("A" & Rows.Count)).End(xlUp)
dNummer = Len(rCelle.Value) - 5
dNummer = CDbl(Right(rCelle.Value, dNummer))
dNummer = dNummer + 1
rCelle.Offset(1, 0).Font.Color = vbRed
rCelle.Offset(1, 0).Value = "MPRN0" & dNummer
Set rCelle = Nothing
ActiveSheet.Protect "hunter55"

End Sub

Nu er det blevet ændret således at AMPRN har sit eget nr system..... er der en der kan tilrette makroen, så den læser i kolonne A og finder det sidst brugte nr med AMPRN foran også laver et nyt ordrenr