Boa tarde,

Diariamente trabalho com 2 trasportadoras fixas ( CEGU03 e CECE93),
Mas as vezes aparecem mais transportadoras além das fixas (CE05, CE06 ,,,)

Fiz uma macro-vba para contar os volumes das transportadoras fixas,

Mas gostaria de contar os volumes de todas as transportadoras que aparecessem durante o dia

segue minha macro-vba

coluna K transportadoras
coluna F volumes
R12 = volumes da CEGU03
R14= volumes da CECE93

Private Sub btExecuta_Click()

Dim W           As Worksheet         ' variavel W como planilha
Dim Resultce    As Integer           ' varialvel como número
Dim Resultgb    As Integer           ' varialvel como número
Dim Resultou    As Integer           ' varialvel como número
Dim UltCel      As Range             ' varialvel como celula


Set W = Sheets("Plan2")    
Set UltCel = W.Range("F200").End(xlUp)   

W.Select                'Seleciona Plan1
W.Range("k2").Select    'Seleciona célula k2

Resultce = 0            'ce = 0 para acumular
Resultgb = 0            'gbex=0 para acumular


'Faça enquanto a celua ativa for <> vazio
Do While ActiveCell.Value <> ""

    'Se a celula ativa = "CEGUE03" então
    If ActiveCell.Value = "CEGU03" Then
    
   
    Resultgb = Resultgb + ActiveCell.Offset(0, -5).Value
    
    End If
    
    ActiveCell.Offset(1, 0).Select

Loop

W.Range("R12").Value = Resultgb

W.Range("K2").Select

Do While ActiveCell.Value <> ""

   
    If ActiveCell.Value = "CECE93" Then
    
   
    Resultce = Resultce + ActiveCell.Offset(0, -5).Value
    
    End If
    
    ActiveCell.Offset(1, 0).Select

Loop

W.Range("R14").Value = Resultce


End Sub