エクセルのマクロについて質問、次のマクロが欲しいです。「選択した範囲のセルに左から○○番目に半角スペースを挿入」 - Visual Basic - 教えて！goo

エクセルのマクロについて質問、次のマクロが欲しいです

(1)選択した範囲のセルに左から○○番目に半角スペースを挿入。
例：○○を1とした場合
123456789101
123556799102
123656809103
↓
1■2345■6789■101
1■2355■6799■102
1■2365■6809■103

＊■はスペースのつもりです

(2)選択した範囲のセルに右から○○番目に半角スペースを挿入。
例：○○を1とした場合
123456789101
123556799102
123656809103
↓
123■4567■8910■1
123■5567■9910■2
123■6568■0910■3


(3)選択セルの１番右の文字を上付き文字。
例：
1234
1235
1236
↓
1234←４を上付き
1235←５を上付き
1236←６を上付き



「選択した範囲のセル中にスペースやタブがあれば全部削除」
といった似たようなマクロを発見したのですが。これを利用してできないでしょうか？

Sub 空白除去()
Dim rng As Range
Dim str as String
For Each rng In Selection
' --- タブを除去
str = Replace(rng.Value, vbTab, "")
' --- 半角スペースを除去
str = Replace(str , " ", "")
' --- 全角スペースを除去
rng.Value = Replace(str , "　", "")
Next
End Sub



お力添えよろしくお願いします。