Olá wellausen!
Isso não é uma tarefa dificil de ser feita manualmente pelos recursos nativos do Excel, pois através dos filtros você facilmente consegue limpar seu cadastro após copiar todos na planilha MARKETING.

De qualquer forma, se quiser automatizar todo o trabalho copie o código abaixo e associe a um botão, que a tarefa toda vai ser realizada com um clique:

Sub mailing()

Dim wks As Worksheet
Dim rlast As Long
Dim i As Variant

    'limpar valores da planilha MARKETING para não duplicar emails a cada execução da macro
    Sheets("Marketing").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.ClearContents


For Each wks In ActiveWorkbook.Sheets

If wks.Name <> "MARKETING" Then

wks.Select
    
    rlast = Cells(Rows.Count, "B").End(xlUp).Row
    
    For i = 2 To rlast
    
        If Range("A" & i).Offset(0, 1).Range("A1").Value <> "" Then
        
            Rows(i & ":" & i).Copy
            Sheets("MARKETING").Select
            Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
            wks.Select
            
        End If
        
    Next i
    
End If
    
Next wks

Sheets("MARKETING").Select

MsgBox "Emails Copiados!"

End Sub