Sub SamT_SeleteColumns_byValue()
Dim DelValues As Variant
Dim Del As Boolean
Dim LastRow As Long
Dim Rw As Long
Dim i As Long
DelValues = Array("France", "Italy", "USA", "Etc., etc., etc.")
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
'Delete From bottom up
For Rw = LastRow To 1 Step -1
For i = LBound(DelValues) To UBound(DelValues)
'Select one of below to use
'For exact match
If Cells(Rw, "A").Value = DelValues(i) Then Del = True
'For close match
If InStr(Cells(Rw, "A"), DelValues(i)) > 0 Then Del = True
Next i
If Del Then Rows(Rw).Delete
Del = False
Next Rw
'Delete from Right to Left
Columns(N2).Delete
Columns(N1).Delete
End Sub
If this is too slow, it can be made faster. I kept the logic simple.