*Need Developer Tab Enabled

Hold down Alt key and F11 to bring up VBA editor

Click insert – module

Add the code:

Sub remove_columns()

    For i = ActiveSheet.Columns.Count To 1 Step -1

        If InStr(1, Cells(1, i), "position") Then Columns(i).EntireColumn.Delete

    Next i

End Sub

Where the code says “position” change to the text you want i.e. header text that denotes a column to delete

save as macro enabled workbook