Active X (Macro) to Sort data range to included added rows

Try

Private Sub CommandButton1_Click()
'
' Kitpartsspending Macro
'

'
Dim LR As Long
LR = Worksheets("Kitparts Spending").Range("B" & Rows.Count).End(xlUp).Row
    Range("B3:F" & LR).Select
    ActiveWorkbook.Worksheets("Kitparts Spending").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Kitparts Spending").Sort.SortFields.Add Key:=Range _
        ("B3:B" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Kitparts Spending").Sort
        .SetRange Range("B2:F" & LR)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub