Option Explicit
Sub test()
Dim i As Long
'For i = Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1
For i = 703 To 2 Step -1
If Not Cells(1, i) Like "*aaa*" And Not Cells(1, i) Like "*bbb*" Or IsEmpty(Cells(1, i)) Then Columns(i).Delete
Next i
End Sub