VBAmacros循环所有选项,复制+粘贴行到不同的工作表

我有一个模板表,将作为我的投资组合中的个别项目的摘要(我有3个独特的项目)。 我想这个模板自动填充基于VBAmacros为每个所需的领域。

该模板位于名为RegionSummary

首先,我要在RegionSummary R6select一个命名范围的下拉列表。 我会select三个项目之一。

这里是这个模板的一个screengrab的链接:

在这里输入图像说明

从那里,我将单击一个macrosbutton,它将根据RegionSummary!R6 (我的参考项目名称单元格)中的条件在我的数据表“Region”中过滤单元格A6:A553

{我已经为此步写了macros}

接下来,(这是我需要帮助的地方)我需要一个macrosbutton,这个macrosbutton可以Regions!B6:B553 (标题是B5 )的所有唯一filter选项,复制Regions!A3:R3 ,并将该数据粘贴到RegionSummary!A12:R12RegionSummary应该有唯一的行数,因为有独特的值将在Regions!B6:B553被过滤。

这是一个数据表的屏幕截图的链接:

在这里输入图像说明

 {Cells Regions!A3:R3 are formulas that are pulling specific information from the main data set in Regions!B6:B553} 

这就是最终的结果:

在这里输入图像说明

有没有人有任何想法如何在VBA中做到这一点? 提前感谢您的帮助。