エクセルＶＢＡ　特定の文字を含む行を複数選択したい

マクロの記録でVBAにする場合、1箇所修正が必要でした。
仮に表全体がA1:B15だった場合、記録すると次のようなVBAのコードができますが、手順の４に相当する部分だけは修正が必要です。以下の★の部分です。これをやらないと、先頭部分や末尾部分が選択から漏れてしまいますのでご注意ください。

Sub Macro1()
'
' Macro1 Macro
'
    Range("A1:B15").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$B$15").AutoFilter Field:=1, Criteria1:="=*商品*", _
        Operator:=xlAnd
    Rows("2:15").Select '★先頭行と最終行になるように書き換えてください！
    Selection.SpecialCells(xlCellTypeVisible).Select
    ActiveSheet.Range("$A$1:$B$15").AutoFilter Field:=1
End Sub