Excelマクロ エラーメッセージ非表示 VBA

Excel マクロ A列に 指定文字があった場合　行を右に移動させる (繰り返し) VBA