clear last but one line to a userform

[snb]

1. Do not use reserved terms (VBA or Excel) for an own 'object', variable or macro/function: a name containing an underscore can't interfere with reserved terms.
2. Do not use unnecessary variables.

Sub M_snb()    
  Sheets("database").Cells(20, 1).End(xlUp).EntireRow.SpecialCells(2).ClearContents
End Sub