エクセルVBAの最終行頭を選択されるように実行した

質問

データベースの最終行にデータを追加し、最終行頭のセルが選択されるようマクロを実行したいのですがわかりません。
下記の通りで実行すると、表の先頭行のセルが選択されます。
どうすれば最終行頭を選択されるようにできるでしょうか？

'--------------------
' 行を追加する Macro
'--------------------
Sub 行を追加する()
Dim rowsCount As Long '表の現在の行数

'行数の取得
rowsCount = Range("DB受入0770").rows.Count

'最下行に行を挿入
Range("DB受入0770").Cells(rowsCount, 1).EntireRow.Insert
End Sub
'--------------------------
' 受入0770の並べ替え Macro
'--------------------------
Sub 受入0770の並べ替え()
Dim rowsCount As Long '表の現在の行数

'行数の取得
rowsCount = Range("DB受入0770").rows.Count

'受入日順に並べ替える
Worksheets("受け入れ").Sort.SortFields.Clear
Worksheets("受け入れ").Sort.SortFields.Add _
Key:=Range("DB受入0770").Columns(1), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Worksheets("受け入れ").Sort
.SetRange Range("DB受入0770")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply

End With

End Sub

回答No.4

noname#223464

その部分であってます。

・・・・
・・・・
.SortMethod = xlPinYin
.Apply
End With

(ここに追加コード）

End Sub

回答No.3

FEX2053

あの・・・先頭行が選択されているなら、

Selection.End(xlDown).Select

で、そのデータベースの最終行にカーソルが飛びますよ。
要は[ctrl]+[↓]をキー記録すると出てくるコードなんですが。

回答No.2

noname#223464

できなかったというのはエラーになったのか、結果が変わらなかったかわからないのですが。

<エラーだった場合:End Subの前に下記2行を追加>
Worksheets("受け入れ").Select
Worksheets("受け入れ").Cells(rowsCount,1).Select

<変わらなかった場合>
rowsCountの値を確かめてみる
例えば、rowsCountの値が1だった場合には、Cells(1,1).Selectが選択されてしまっている

<別の方法：End Subの前に下記2行を追加>
Worksheets("受け入れ").Select
Worksheets("受け入れ").Cells(Rows.Count, 1).End(xlUp).Select

このくらいしか思いつきません。すいません。

お礼

とんでもないです、私の説明が拙くて申し訳ありません。
エラーにはならなかったのですが、やはりダメでした・・・

ちなみに『End With』と『End Sub』の間ですか？
申し訳ありません、お恥ずかしいです(T-T)

回答No.1

noname#223464

End Sub の前に
Worksheets("受け入れ").Cells(rowsCount,1).Select

お礼

回答、ありがとうございます！
一番最後のEnd Subの前に入れるのですか？
試してみたのですが・・・
できなかったのです(T-T)
どうしてなんでしょうか？