vba code if lastrow is full, it errors out

i have userform with a vba code, the vba code its supposed to fill from inputbox 'boxestotal' into the next available empty cell within a range of cell on column d, but if cell D25 if full (first) then it detects it as entire D5 to D25 full, (altho there are empty cellss in between.
attached is a sample workbook. Please help, thanks in advance

PS. I used D25 to fill some data first sometimes.

you test this one.

In your code you have "GetLastCell"
That looks like a UDF but I can't find it.
Did you forget to copy/paste that?

Next empty cell = Cells(5, "D").End(xlDown)

Instead of:

Code:

---

Set rng = GetLastCell(Range("D5:D26"), xlByRows)

---

try:

Code:

---

Set rng = Range("D5:D26").SpecialCells(xlCellTypeBlanks).Cells(1)

---

or qualified a bit:

Code:

---

Set rng = Sheets("Sheet1").Range("D5:D26").SpecialCells(xlCellTypeBlanks).Cells(1)

---

the post by arnelgp provided the solution and it works.