エクセルマクロ初心者実践ガイド

毎日Excel上にデータ入力などをしているとしたら、データって毎日毎日増えていっているよね。そのデータから何かの条件を指定して検索するときに、毎日検索範囲が変わっていくとしたらその都度対象セルを修正するのは面倒だ。
これをマクロを使って解決はできないのだろうか？

データは、１行に１データで入力されていっているものとする。

【範囲を選択する方法】
方法その１．アクティブセル領域を判断する方法
Sub kettei1()
　　Dim TBL As Range

　　Worksheets("Sheet1").Activate: Range("A1").Select
　　　'セルA1を含む、アクティブセル領域（空白行と空白列で囲まれたセル範囲）を選択する
　　Set TBL = ActiveCell.CurrentRegion
　　TBL.Select
End Sub

方法その２．アクティブセル領域を判断する方法（表題などを除くる。）
Sub kettei2()
　　Dim TBL As Range

　　Worksheets("Sheet1").Activate: Range("A1").Select
　　　'セルA1を含む、アクティブセル領域（空白行と空白列で囲まれたセル範囲）を選択　　Set TBL = ActiveCell.CurrentRegion
　　　'1行下の位置から1行少ないところをを設定している
　　Set TBL = TBL.Offset(1, 0).Resize(TBL.Rows.Count - 1, TBL.Columns.Count)
　　TBL.Select
End Sub