如何将基于单元格值的行复制到另一张工作表

Question

我正在尝试根据sheetA中D列的每个不同值，将2列（A和B）从sheetA复制到sheetB。 我从“发布日期”获得了星期数，但是现在我需要为每个不同的“星期数”创建2列到sheetB中，并在每周中复制前2列。

我正在使用以下方法获取周数：

If IsDate(c.Value) Then c.Offset(, 1).Value = Format(c.Value, "ww")

但是我不知道如何在“ WEEK_NUM”上存储每个不同的值以在sheetB上创建列，然后复制该行...

这就是我想要获得的：