指定した列以外の列を削除する方法を模索しています。
たとえば、ABCDE列の１行目にそれぞれ

あ　い　う　え　お

と入っていて、
"あ"と"う"と"お"以外の列を削除し、

あ　う　お

というよにしたく、
このようなプログラミングをしたのですが意図するように動作しません。
ド素人と罵られること承知で質問に参りました。
論理式自体考え方がおかしいものとも思っています。
どなたかお力添えいただけないでしょうか？

Sub 不要列削除()
Dim i As Long
For i = 1 To 50
If Cells(1, i).Value <> "あ" Or Cells(1, i).Value <> "う" Or Cells(1, i).Value <> "お" Then
Columns(i).Delete
End If
Next
End Sub