clear last but one line to a userform

[SamT]

That's not a UserForm. It takes a lot of unnecessary VBA to move the last row of a sheet table to the first row of a UserForm ListBox.

Replace

.Cells(x, 1).EntireRow.SpecialCells(xlConstants).ClearContents

with

Rows(x - 1).ClearContents