*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