VBA 値が同じの場合　行ごと別のシートへ転記

現作業にてエクセルでコピペを繰り返すという作業をひたすら行っております。 VBAにて作業効率をしたいです。 要件としては Aシート　A列の文字とBシートのA列の文字が同じだった場合 BシートへAシートの行をコピペする。 今後、商品数が多くなるので下の方まで使用することになると思います。 シートも増える予定です。 可能な限り早急な対応していただける方を限定したいので 本日返答、明日完成できる方でお願いします。 明後日作業確認で終了としたいです。 宜しくお願いいたします。