Перебирайте значения и фильтруйте их с помощью VBA - мне нужно знать, как

Question

Ниже приведено только создание электронного письма только для первого значения, найденного в Rawdata или листе RemoveDup :(

Я пробовал для каждого, как указано ниже, но он все еще не работает.

Пожалуйста, помогите

Sub Macro1()

     Sheets("RawData").Select
        Columns("A:A").Select
        Selection.Copy
        Sheets.Add(After:=Sheets(Sheets.Count)).Name = "DupRemoved"
        ActiveSheet.Paste
        Application.CutCopyMode = False
        ActiveSheet.Range("$A$1:$A$1000").RemoveDuplicates Columns:=1, Header:=xlYes

    Dim Cll As Range
    For Each Cll In Selection
    If Cll.Value < 0 Then
    Cll.Value = Sheets("Sheet1").Range("Opp").Value




        Worksheets("FilteredData").Range("$A$2:$S$1224").Cells.ClearContents
        Sheets("RawData").Select
        ActiveSheet.Range("$A$1:$S$1224").AutoFilter Field:=1, Criteria1:= _
            Sheets("Sheet1").Range("Opp").Value
        Rows("1:1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Rows("1:1").Select
        Sheets("FilteredData").Select
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Sheets("Mail").Select
           ActiveSheet.Range("$A$1:$S$1224").AutoFilter Field:=1, Criteria1:= _
            Sheets("Sheet1").Range("Opp").Value
    Sheets("RawData").Select
        Rows("1:1").Select
        ActiveSheet.ShowAllData
        Sheets("Home").Select

        End If

        Next Cll

        Call Macro2



      End Sub