如何为特定目的创建宏

Question

我正在尝试创建一个宏，该宏将以一个人的名字搜索一个项目，弄清它处于什么状态，将其粘贴在正确的标题下，然后增加一个计数器，以便它将右边的下一个项目粘贴地方。

该图显示了不同的标题和项目，这些单元格是从工作表RawData引用的

本质上，在图像中有6个不同的标题和状态。已分配，接受，进行中，保留，完成和取消的项目。下面的每个工作表都以不同的人命名，例如“ WIPTX”。

到目前为止，我拥有的代码不允许我复制并粘贴到标题的不同部分。它所做的全部工作是循环浏览“原始数据”表，并从范围C1：C中查找值为Assigned和Thomas的值。然后将其复制并粘贴到工作表的一个全新部分，称为WIP。原始数据连接到每天更新的共享点站点。我还是VBA的新手，仍然在寻找答案。

Sub Test()

Dim Cell As Range
Dim myRow As Long

myRow = 2
With Sheets("RawData")
    For Each Cell In .Range("C1:C" & .Cells(.Rows.Count, "C").End(xlUp).Row)
        If Cell.Value = "Assigned" And Cell.Offset(0, 1).Value = "Thomas" Then
            .Rows(Cell.Row).copy Destination:=Sheets("WIP").Rows(myRow)
            myRow = myRow + 1
        End If
    Next Cell
End With

MsgBox "The code has completed successfully"

End Sub