Leerzeichen an bestimmter Stelle setzen

Hallo, ich bin alden123 und neu hier und hoffe das man mir weiter helfen kann

Suche ein Makro, welches mir in den markierten Zellen ein Leerzeichen einfügt.
z.B: 11HAD10AA150
in 11 HAD10 AA150
in diesem Beispiel soll an 3.te und 9.te Stelle ein Leerzeichen eingefügt werden.

vielen Dank im voraus

alden123

Sub InsertBlanks()
For Each Cell In Selection.Cells
    Cell.Value = Mid(Cell.Value, 1, 2) & " " & Mid(Cell.Value, 3, 5) & " " & Mid(Cell.Value, 8)  
Next
End Sub