オブジェクトとして作成した。「ーーーー以下余白ーーーー」を最終行に配置します。
図形を使って作成します。
以下のようなオブジェクトを作成し「ーーーー」と「以下余白」をグループ化し１つの
オブジェクトにします。
グループ化した「以下余白」を選択します。
選択された状態で「名前ボックス」に、このオブジェクトへ仮に「AAA」と名前を付けます。
その状態で「マクロの記録」を選択して記録させ、オブジェクトを動かしてみて、マクロの記録を
停止してオブジェクト名が「AAA」になっているか？確認してみます。
仮にボタンを作成して、以下のような表を用意します。
項目としてaaaからeeeまで
Commmandボタン内に以下を記述します。
B6セルから内容がある最終行に「ーーー以下余白ーーー」がボタンを押すと動きます。
Private Sub CommandButton2_Click()
Dim nema As Long
nema = Range("B6").CurrentRegion(Range("B6").CurrentRegion.Count).Row
ActiveSheet.Shapes("AAA").Top = Range(Cells(nema + 1, 2), Cells(nema + 1, 2)).Top
End Sub