VBA Formel optimieren

Hallo Zusammen,
da ich mit meinen Excel Kenntnissen nicht weiter komme, versuche ich mich jetzt mit VBA.
Habe mir da mal eine Formel erstellt, und Sie funktioniert.
Nun meine bitte: Kann ich diese Formel einfacher gestalten?

Sub Alle9()
'wenn in Zelle A1 ein O eingegeben wird dann mach in die Zellen B1,C1,D1 ein I
If Range("A1") = "O" Then
Range("B1, C1, D1") = "I"
End If
'wenn in Zelle B1 ein O eingegeben wird dann mach in die Zellen A1,C1,D1 ein I
If Range("B1") = "O" Then
Range("A1, C1, D1") = "I"
End If
'wenn in Zelle C1 ein O eingegeben wird dann mach in die Zellen A1,B1,D1 ein I
If Range("C1") = "O" Then
Range("A1, B1, D1") = "I"
End If
'wenn in Zelle D1 ein O eingegeben wird dann mach in die Zellen A1,B1,C1 ein I
If Range("D1") = "O" Then
Range("A1, B1, C1") = "I"
End If
End Sub