Bom dia!!

Poste seu arquivo modelo ou código para que o pessoal possa lhe ajuda.

Att

ebertin,

Bom Dia!

Tente assim:

Do While wenv.Cells(Row, 5) <> "" 
     If wenv.Cells(Row, 1) = "BBB"
         'Executa Macro que envia para BBB
     ElseIf wenv.Cells(Row, 1) = "AAA"
         'Executa Macro que envia para AAA    
     End If
Loop

Só um ajuste na rotina do colega Wagner e uma Obs:

Ebertin como não postou a rotina inteira que está utilizando, acredito que a Variável Row deve estar sendo armazenada antes da execução das instruções indicadas, se sim, devemos ao final incrementa-la, senão entraremos em Loop infinito, uma outra dica seria se realmente Row é uma Variável, evite dar nomes a Variáveis utilizando a mesma referencia da propriedade, procure utilizar sRow, sLinha ...:

Do While wenv.Cells(Row, 5) <> ""
     
     If wenv.Cells(Row, 1) = "BBB" Then
         'Executa Macro que envia para BBB
     
     ElseIf wenv.Cells(Row, 1) = "AAA" Then
         'Executa Macro que envia para AAA
     End If
     
     Row = Row + 1
Loop

[]s

Beleza Mauro!

Primeiramente gostaria de agradecer pelas respostas.

Coloquei o código que vocês sugeriram e de fato ele executa as macros, o único problema é que eu preciso dividir isso em duas macros, pois preciso de dois botões. Tenho essa necessidade porque uma pessoa enviará para os destinatários do grupo AAA e outra pessoa enviará para os do BBB.
Estou tentando encontrar algo que ignore as váriaveis AAA da macro "BBB", e vice versa, para que a macro não seja interrompida quando encontra-las

@alexandrevba
Não consigo upar planilhas por aqui

ebertin, se sua duvida for somente esta, não precisa anexar o arquivo, mas se precisar veja no link abaixo como faze-lo:

Como Anexar Aquivos Compactados ?
viewtopic.php?t=3841

Quanto a sua duvida eu havia entendido da mesma forma que o Wagner uma rotina com condição, mas seprecisa de duas rotinas separadas é só fazer o ajuste:

Sub Envia_AAA()

    Do While Plan1.Cells(Row, 5) <> ""
         
         If Plan1.Cells(Row, 1) = "AAA" Then
             'Executa Macro que envia para AAA"
         End If
         
         Row = Row + 1
    Loop
    
End Sub

Sub Envia_BBB()

    Do While Plan1.Cells(Row, 5) <> ""
         
         If Plan1.Cells(Row, 1) = "BBB" Then
             'Executa Macro que envia para BBB"
         End If
         
         Row = Row + 1
    Loop
    
End Sub

Deu certo, Mauro.
Obrigado.

Ficou assim

    Set wMsg = Sheets("Msg")
    Set wenv = Sheets("Enviar")
    Set wCola = Sheets("Colar")
    
    wenv.Range("E2:H200").Interior.ColorIndex = xlNone
            
    Row = 2
    
    Do While wenv.Cells(Row, 5) <> ""

    If wenv.Cells(Row, 1) = "BBB" Then
    xxx = wenv.Cells(Row, 2)
    yyy = wenv.Cells(Row, 3)
    zzz = wenv.Cells(Row, 4)

Obrigado a todos!