【Excel VBA】切り取りができない

Excelでのマクロ作成について相談です。

〈やりたいこと〉
　任意の文字を含む行を選択し、リストの一番下に移動させる

上記の目的に対し、過去の質問等を参考に以下のようなマクロを組んだのですが、、、

①フィルターを使って対象の行だけを表示する
②リスト全体を選択する
③可視セルのみを選択する
（Selection.SpecialCells(xlCellTypeVisible).Select）
④フィルターを解除する
⑤選択範囲を切り取る
⑥リストの１つ下の行を選択して挿入する

なお、対象の文字は元々１か所に纏まっている状態です。

試しに簡単なリストで試したところ問題なく動作したのですが、本命のリストで実行したところ⑤の切り取りが出来ませんでした。
（複数の範囲を選択されているから無理というエラーメッセージ）

１行ずつ挙動を確認したら、③のタイミングで選択範囲の太枠？が消えており、別のどこかが追加で選択されているようです。

問題点の見当も付かないので、アドバイス頂けると幸いです。

よろしくお願いします。