Søge efter en bestemt tekst i kolonne D og ændre celle kol. A

Hej jeg har lige lavet to versioner af en makro som kan bruges.

Den første her kører kun kolonne D engang igennem.

Sub DatoUbalance()
   
        Range("D:D").Select
        On Error GoTo err
        Do
        Selection.Find(What:="DATO UBALANCE", After:=ActiveCell).Activate
        rk = ActiveCell.Row
        Range("A" & rk).Value = InputBox("Indtast det nye nr.")
        Range("D" & rk + 1 & ":D65536").Select
        Loop

err:

End Sub

Den næste her fortsætter med at søge kolonne D igennem indtil der ikke længere er nogle felter med teksten "DATO UBALNACE"

Sub DatoUbalance2()
   
        Range("D:D").Select
        On Error GoTo err
        Do
        Selection.Find(What:="DATO UBALANCE", After:=ActiveCell).Activate
        rk = ActiveCell.Row
        Range("A" & rk).Value = InputBox("Indtast det nye nr.")
        Loop

err:

End Sub

Håber du kan bruge en af dem.

Nr. 1 var lige det jeg ledte efterMange tak for hælpen