（再）エクセル データ並び替え
前回、こちらで質問させて頂いた者です。
http://okwave.jp/qa/q7917475.html
一度は解決したのですが、
エクセルの表を作り変える必要が出てきて、セルの位置などが変わってしまい、
教えていただいたマクロではエラーが出てしまって並び替えができなくなってしまいました。
前回：1行目がタイトル行
データは2行目以降（A・B列は2行ずつ結合）
↓
変更：4行目がタイトル行
データは５行目以降（A・B・C列は2行ずつ結合）
少し変わっただけなので、このへんかな～と勝手に見当をつけて自分でマクロをいじってみたのですが、検討違いのようでエラーばっかりで直りません(T0T) （マクロはとっても苦手です・・）
下のマクロが、以前の質問で回答してくださった方から教えていただいたマクロなんですが、
ここのどこを変えれば、変更後の表に対応できるようになりますでしょうか？
どなたか教えてください～（＞＿＜）
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Sub 並び替え() 'この行から
Dim i As Long
Application.ScreenUpdating = False
'セルの分割
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
With Cells(i, 1)
.UnMerge
.Offset(, 1).UnMerge
.Offset(1) = Cells(i, 1)
.Offset(1, 1) = Cells(i, 2)
End With
Next i
Cells(1, 1).CurrentRegion.Sort key1:=Cells(1, 1), order1:=xlAscending, Header:=xlYes _
, key2:=Cells(1, 2), order2:=xlAscending, Header:=xlYes
'セルの再結合
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row - 1 Step 2
Application.DisplayAlerts = False
With Cells(i, 1)
.Resize(2, 1).Merge
.Offset(, 1).Resize(2, 1).Merge
End With
Next i
Application.ScreenUpdating = True
End Sub 'この行まで
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
また、わがままで申し訳ないのですが、グループごとに並び変えるときに、さらに名簿順になるように並び替えられると助かるのですが、何か文を追加することで、そういう並び替えになりますか？
もし可能なら、それも教えて頂きたいです。
なにとぞ、よろしくお願いしますm(_ _)m
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
お礼
ありがとうございます。ご親切な回答、感謝します。