エクセルVBA＿選択セルに連番入力したい

Question

前提・実現したいこと

エクセルVBAにて結合されているセルを選択して、セル内の値の前に連番を付与したいと思っています。

発生している問題・エラーメッセージ

結合されているセルが列方向に2個結合されているセルを
行方向に3個選択します。
コードを実行すると下記のように入力されてしまいます。
　元セル　〇
　　　　　△
　　　　　×
　実行後　1　〇
　　　　　3　△
　　　　　5　×
連番で入力されるようにするには、どのように改修よいのでしょうか？
離れたセルを選択した場合にも対応できるようにしたい。
ご教示お願いします。

該当のソースコード

　　Sub 選択セル連番入力()
Dim i As Long: i = 1
Dim セル As range
For Each セル In Selection

    If セル.Value = "" Then
        セル.Value = i
    Else
        セル.Value = i & " " & セル.Value
    End If

    i = i + 1
Next

End Sub

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

こんな感じでどうでしょうか。

Sub 選択セル連番入力()
    Dim i As Long: i = 1
    Dim セル As Range
    For Each セル In Selection
        If セル.MergeArea.Cells(1, 1).Address = セル.Address Then
            If セル.Value = "" Then
                セル.Value = i
            Else
                セル.Value = i & " " & セル.Value
            End If
            i = i + 1
        End If
    Next
End Sub

Comments

[yoshinorikluger]

ありがとうございます。大変助かりました。
VBAを勉強初めてから、コード入力してはエラーばかりで、
まだまだ理解できていないことも多く苦労しています。
即座に回答いただきありがとうございます。

Answer 2

ちゃんとした回答が出てるので取り消し

Comments

[yoshinorikluger]

ありがとうございます。
大変、助かりました。
もっと勉強していきます。
また、悩むことがあれば、お助け宜しくお願いします。

Answer 3

こんな感じですかね。

Sub 選択セル連番入力()
	Dim firstRow As Long
	Dim セル As range
	For Each セル In Selection
		if firstRow = 0 then firstRow = セル.Row
		セル.Value = (セル.row - firstRow + 1) & " " & セル.Value
	Next
End Sub 

Comments

[yoshinorikluger]

素晴らしい、不勉強を痛感いたします、早急な回答に感謝いたします。
実は離れたセルを選択した場合にも対応したいと思っております。
質問内容を修正いたしました。
ありがとうございます。