Excel 基于单元格筛选表格并将表格移动到其他工作表

我的代码是这样工作的：基本上它根据列A=“Status Changed”过滤表，并将数据移动到不同的工作表中。但我想对其进行调整，以便根据名为“All”单元格A1的特定单元格表中的值进行筛选，而不是根据该值“Status Changed”。准则1需要是一个特定的单元。 我怎样才能适应它

Sub Filter_and_move_data()
Dim LastRow As Long

Sheets("Parsing").UsedRange.Offset(0).ClearContents
With Worksheets("Incidents_data")
    .Range("$A:$G").AutoFilter
    .Range("$A:$G").AutoFilter field:=1, Criteria1:="=Status Changed", Operator:=xlOr
    LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A1:G" & LastRow).SpecialCells(xlCellTypeVisible).Copy _
            Destination:=Sheets("Parsing").Range("A1")
End With
End Sub

---

换个表情就行了

Criteria1:="=Status Changed"

到

---

换个表情就行了

Criteria1:="=Status Changed"

到

---

我这里有一个AutoFilter宏示例，我这里有一个AutoFilter宏示例，