XlUp 55 rows and delete

I'm looking to choose column B, move down to the last row of data and then delete everything in the last 55 rows from Column B over (A remains stagnant). Right now this is erroring out for me and there may be a much simpler way to do what I'm trying to do. Any help is appreciated.

Range("B2").Select
    Selection.End(xlDown).Select
    ActiveWindow.SmallScroll Down:=-31
    Dim n As Long
    n = 55
    Cells(Rows.Count, "B").End(XlUp.Offset(1-n).
    ActiveCell.Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
End Sub

One way:

    Const nRow As Long = 55

    On Error Resume Next
    Cells(Rows.Count, "B").End(xlUp).Offset(1 - nRow).Resize(nRow, Columns.Count - 1).ClearContents

The OERN statement avoids a runtime error if there are less than 55 rows available to clear.