>>271
図形の移動ってこう書くらしいんだけど

Sub TopAndLeftSamp1()
　 Dim Sh As Shape
　 For Each Sh In ActiveSheet.Shapes
　 Sh.Top = Range("B2").Top
　 Sh.Left = Range("B2").Left
　Next Sh
　End Sub

それはどう書くんですか？
太い線でもはみ出ないように一番下にくるんですか？

>>270
終わりにだけ、じゃなくて仕切り線を詳細の高さの最後に、はみ出ないようにおきたいということです