EXCEL VBAコミュの範囲設定の自動化

はじめまして、ＫＥＮと申します。
マクロは初心者です。だから変な質問になってしまうのかどうか解りませんが・・・
もし、実行可能なことであれば知りたいと思い投稿しました。

宜しくお願いします。
やりたいことを以下に書きます。

　　　 Ａ　　　　Ｂ　　　　Ｃ
　１ 　
　２ 　　　　　　　　　　　　　　｛ボタン｝
　３　　Ａ　　項目０１　　a
　４ 　　　　　　　　　　　 b
　５　　　　　項目０２　　a1
　６　　　　　　　　　　　　b1
　７　　　　　　　　　　　　c1
　８　　　　　項目０３　　a
　９　　　　　　　　　　　　b
１０　　　　　　　　　　　　b1
１１　　　　　　　　　　　　x
１２　　　　　　　　　　　　y
１３　　　　　　　　　　　　z

という表をつくって、Ｂ列の項目に対する範囲をそれぞれ設定したいのですが、

具体的に言いますと、

Ｃ３：Ｃ４の範囲をＢ３のセルの中に記入されている文字列（この場合は「項目０１」）の名前で定義して、

同様にして、その続きの　Ｃ５：Ｃ７　の範囲をＢ５（項目０２）、
　　　　　　　　　　　　　　　Ｃ８：Ｃ１３の範囲をＢ８（項目０３）
　
というように名前の定義をして、これをマクロに記憶させて｛ボタン｝で実行させようかと思い行ったところ、いくつか問題が出てきました。

（問題１）　Ｂ列のセルの中身を変更しても、登録時に記入してあった名前に戻ってしまう。
　　　　　　例えば「項目０１」を「項目１」とかに変えても「項目０１」になってしまう。

（問題２）　行を挿入したり、してＢ列のセルの位置が変わると違う範囲になってしまう。
　　　　　　例えば、７行と８行の間に新しい行を挿入して、「項目０２」の範囲（リスト）を増やしても、
　　　　　　実行時は常にＢ８は「項目０３」の中に入ってしまう。

　※（問題２）に関しては後から挿入する分には範囲も自動的に変わってくれるので問題ないのですが、マクロ実行時に初めに設定した範囲で実行されてしまうのです。
実行前に、いちいち元のセル範囲に戻していたらせっかくの自動的に設定し直すという目的に反してしまい、どうしたのもかというところです。

以上ですが、これら２つの問題は解決可能なのか教えてください。もし可能ならどういうアレンジが必要なのかご教授頂ければ有り難いです。以下は実際動かしたＶＢＡです。
宜しくお願いします。

Sub Macro7()
Range("B3").Select
ActiveCell.FormulaR1C1 = "項目０１"
ActiveCell.Characters(1, 2).PhoneticCharacters = "コウモク"
Range("C3:C4").Select
ActiveWorkbook.Names.Add Name:="項目０１", RefersToR1C1:="=Sheet1!R3C3:R4C3"
ActiveWorkbook.Names.Add Name:="項目０１", RefersToR1C1:="=Sheet1!R3C3:R4C3"
Range("B5").Select
ActiveCell.FormulaR1C1 = "項目０２"
ActiveCell.Characters(1, 2).PhoneticCharacters = "コウモク"
Range("C5:C7").Select
ActiveWorkbook.Names.Add Name:="項目０２", RefersToR1C1:="=Sheet1!R5C3:R7C3"
ActiveWorkbook.Names.Add Name:="項目０２", RefersToR1C1:="=Sheet1!R5C3:R7C3"
Range("B8").Select
ActiveCell.FormulaR1C1 = "項目０３"
ActiveCell.Characters(1, 2).PhoneticCharacters = "コウモク"
Range("C8:C13").Select
ActiveWorkbook.Names.Add Name:="項目０３", RefersToR1C1:="=Sheet1!R8C3:R13C3"
ActiveWorkbook.Names.Add Name:="項目０３", RefersToR1C1:="=Sheet1!R8C3:R13C3"
End Sub