VBA 模組問題 工作表1指定欄位值移動到其他工作表2

Sub 巨集4()
'
' 巨集4 巨集
'
'
    Dim Key$, CopySheet$, PasteSheet(2) As String
    CopySheet = "Sheet3"
    PasteSheet(0) = "Sheet1"
    PasteSheet(1) = "Sheet2"
    
    For i = 0 To 1
    Key = Sheets(PasteSheet(i)).Range("A1").Value
    Sheets(CopySheet).Activate
    Cells.Find(What:=Key, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
    Range(Selection.Resize(1, 2), Selection.End(xlDown)).Copy
    Sheets(PasteSheet(i)).Activate
    Cells.Find(What:=Key, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Offset(1).PasteSpecial
    Next i
    Application.CutCopyMode = False
End Sub