Nu har jeg ikke dit regneark, så det bli'r lidt "ud af hovedet", hvor jeg antager, at aftalenummeret i dit UserForm ligger i 'txtAftale', og aftale nummeret i dit regneark står i kolonne D, og dine aftaler begynder fra og med række 4..

On Error Resume Next Worksheets("Bilag B").Select Dim Række As Long Række = WorksheetFunction.Match(txtAftale.Text, Range("D:D"), 0) If Række < 4 Then Række = Range("D" & Rows.Count).End(xlUp).Row + 1 If Række < 4 Then Række = 4 Range("D" & Række).Select

...og, herefter kan du bare indsætte dine værdier, som du gør efter

With ActiveCell ...

Bemærk, at, hvorvidt kode linjen...

WorksheetFunction.Match(txtAftale.Text, Range("D:D"), 0)

...rent faktisk finder dit aftalenummer kommer måske lidt an på, hvordan aftalenummeret bliver gemt i regnearket, da jeg kan se, at du benytter '.Text' i stedet for '.Value'.
Du kan evt. blive nødt til, at konvertere frem og tilbage mellem tekst og tal, hvis du har behov for at tingene er i tekst format.