エクセルのフォーム入力について

質問

初心者です。
フォームから自動でシート入力をしたいのですが、最下行の取得が出来ません。教えて下さい
Private Sub CommandButton1_Click()
'登録ボタンの動作
Dim myDCount As Long

Worksheets("全体売上").Activate
myDCount = Range("扱い月").Rows.Count

myDCount = Range("扱い月").Cells(myDCount, 1).EntireRow.Insert 'データの最終行+1を取得

'データの入力（フォームからセルへ）
With Worksheets("全体売上")
.Cells(myDCount, 1).Value = TextBox1
.Cells(myDCount, 2).Value = TextBox2
.Cells(myDCount, 3).Value = TextBox3
.Cells(myDCount, 5).Value = TextBox4
.Cells(myDCount, 6).Value = TextBox5
.Cells(myDCount, 9).Value = TextBox6
.Cells(myDCount, 13).Value = TextBox9
.Cells(myDCount, 7).Value = TextBox10
.Cells(myDCount, 8).Value = TextBox11
.Cells(myDCount, 21).Value = TextBox12
End With
Me.Hide
End Sub

回答No.1

hallo-2007 · ベストアンサー

A1セルから下へ移動して空白になった行番号
myDCount = Range("A1").End(xlDown).Row + 1
A列最後の行から上へ移動してデータが入っている行の1つ上
myDCount = Range("A65536").End(xlUp).Row + 1
といった具合で最終の行が得られないでしょうか。

お礼

ありがとうございました
無事に動くようになりました