VBAでの範囲選択の仕方について

Question

初心者で申し訳ないのですがVBAについて質問です。
日付を入力していく表をエクセルで作っています
そこで、空白セルをダブルクリックした時に今日の日付を自動で入力できるマクロを作成したいのですが・・
ネットで検索してコードは下記だということがわかりました

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:B10")) Is Nothing Then
Cancel = True
Target.Formula = Date
End If
End Sub

範囲指定についてお聞きしたいです
私の希望として範囲選択の仕方を「A2からA10」と「B2からB10」の2列だけではなくて、
「A11、B11以降に行を追加した時にも、追加したセルにダブルクリックして日付を入力できる動作を反映させたい」のですがどうすれば良いでしょうか？
表には何行追加するかわからないため「A２から最終行」「B２から最終行」という形で範囲選択したいです

ちなみに印刷範囲も設定していて、最終行がちょうど印刷範囲となっており、最終行までダブルクリックで日付を入力したいと考えてお

Answer 1

「A２から最終行」「B２から最終行」の「最終行」は、印刷範囲の最終行ということですね。

印刷範囲のアドレスはActiveSheet.PageSetup.PrintAreaで取得できますのでそれを使えばいいでしょう。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A:B"), Range(ActiveSheet.PageSetup.PrintArea)) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

Comments

[sanrio.]

回答ありがとうございます。
試したところ問題が解決しました！
ベストアンサーに選ばせていただきました。