How to delete tabs before a specific tab

You could try...

Sub DeleteTabs()
    Dim wsTAB As Worksheet
    For Each wsTAB In ActiveWorkbook.Worksheets
        If wsTAB.Name = "Input" Then Exit Sub
        Application.DisplayAlerts = False
        wsTAB.Delete
        Application.DisplayAlerts = True
    Next wsTAB
End Sub

...but please test on a sample workbook as you won't be able to recover the delete.