VBA宏循环过滤，复制参考单元格，然后粘贴到单独的工作表中

我有一个表，表中的源数据列

Sheet1！A6:R553

在

Sheet1中！A3:R3

，我有一些公式可以从

表1中的数据表中提取特定信息！A6:R553

我想复制到另一张纸上

列A充当“我的项目名称”列，而列B保存订单号。在我的例子中，每个项目都有多个订单号

我正在寻找一个脚本来逐个筛选和循环B列中的所有唯一订单号，然后将单元格

A3:R3

复制到

Sheet2！A12:R12

用于具有唯一订单号的行数

示例：假设我的数据表中有5个项目。我将使用另一个宏筛选数据以选择Project_1。然后我想要一个命令按钮来激活一个宏，该宏将过滤到B列的第一个订单号，复制

Sheet1！A3:R3

至

表2！A12:R12

，然后过滤到项目_1中的第二个订单号，并重复该过程。这应该一直持续到所有唯一订单号都被过滤并循环通过为止

---

感谢您提供的任何帮助。

编辑：抱歉，您没有发布@蒂姆，谢谢你的帮助，但我现在是一个新手。