VBA-Code soll geändert werden! Hilfe!!!

Hallo,
bin in VBA nicht grad der Held, deshalb meine Frage:
Kann mir jemand den Excel-VBA-Code so umschreiben, daß ich nicht einen Suchtext eingeben muß, sondern der höchste Inhalt beginnend mit 32* (ist immer 5-stellig!) gesucht wird!
Der Rest soll bleiben, d. h. es sollen alle Zeilen unter dem gesuchten Inhalt gelöscht werden.

Code:

Sub LoescheZeilenDarunter()
  Dim Suchwert
    Suchwert = InputBox(Wonach suchen?)
    If Len(Suchwert) > 0 Then
      On Error Resume Next
      Rows(Columns(A).Find(What:=Suchwert, _
                        After:=Range(A1), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False) _
                        .Offset(1, 0).Row _
      & : & Cells(Rows.Count, A).End(xlUp).Row).Delete
    End If
End Sub


Vielen Dank schon im voraus

Gruss
Bernd

Hat sich erledigt, hab ne Lösung gefunden!!!