clear last but one line to a userform

[georgiboy]

Just edit the clear Macro to not clear if the row = 1:

Sub clear()    
    Dim x As Long
    
    With Sheets("database")
        x = .Cells(.Rows.Count, 1).End(xlUp).Row
        If x > 1 Then
            .Cells(x, 1).EntireRow.SpecialCells(xlConstants).ClearContents
        End If
    End With
End Sub