Bom dia.
Veja se te ajuda.

Boa noite,
Na sua planilha, funciona de acordo com o pretendido, mas quando passo a macro para a minha planilha, dá erro " Compile Error - User-Defined type not defined"
Sabe o porquê?

Verifique se o codename está de acordo.
Se não estiver, mude a instanciação da variável "w" para o codename certo.
No meu código, a planilha instanciada é a planilha1 (não é o nome da worksheet que está entre parênteses... é o mais à esquerda.

Continua a dar o mesmo erro...
tentei anexar a planilha completa para ser mais fácil, mas é demasiado grande...
Pode enviar-me o seu mail, para eu enviar por lá?

Bom dia.
Na janela do VBA (no alto) clique em " ferramentas" -> "Referências" e procure na lista de bibliotecas a seguinte:
"MICROSOFT SCRIPTING RUNTIME e selecione a caixinha correspondente (feito isso essa biblioteca vai subir e ficar junto com as primeiras que já estavam marcadas).
Depois disso rode o código.
Se ainda persistir o erro ( eu duvido ) suba sua planilha pro google drive (ou similar) e poste o link aqui no fórum.

Já consegui
Reparei é que as ceculas da coluna "B" a zero não ficam ocultas...
Dá para acrescentar ao código?
De resto funciona impecável!
Obrigado

Não entendi.

As células que se encontram na coluna "B", caso estejam em branco ou a zeros, também devem ficar ocultas...

Já vi que foi erro meu, não coloquei essa info no pedido...

Caso possa rectificar, fico agradecido.
Desculpe o transtorno...

Veja agora.
*Quando quiser agradecer, clique na "mãozinha"

Sub main()
    On Error GoTo errMain
    Dim w As Worksheet
    Dim i As Long, j As Long
    Dim dic As Dictionary
    Dim list As Dictionary
    Dim m() As Variant
    Dim sValor As String
    Dim mprincipal As Variant
    Dim maior As String
    Dim chave As String
    
    
    Set dic = New Scripting.Dictionary
    Set list = New Scripting.Dictionary
    Set w = Planilha1
    
        If w.ProtectContents Then
        
            MsgBox "Desproteja a planilha antes de executar !"
            Exit Sub
        End If
    
        Application.ScreenUpdating = False
    
        If w.AutoFilterMode Then w.AutoFilterMode = False
    
    w.Rows("1:300").EntireRow.Hidden = False
    mprincipal = w.Range("a1:f300").Value
    
    
        For i = 1 To 300
        
            sValor = VBA.UCase$(mprincipal(i, 2))
            
            If Not dic.Exists(sValor) Then dic.Add sValor, sValor
        
        Next i
    
    
        For i = 0 To dic.Count - 1
        ReDim m(1 To 300)
        
            For j = LBound(mprincipal, 1) To UBound(mprincipal, 1)
            
                If VBA.UCase$(mprincipal(j, 2)) = dic.Items(i) Then
                
                    m(j) = mprincipal(j, 6)
                   
                
                End If
            
            
            Next j
        
        maior = WorksheetFunction.Max(m)
        
        
        list.Add dic.Items(i), maior
        
        
        Next i
    
    
     For i = 1 To 300
     chave = VBA.UCase$(w.Cells(i, 2))
     
     maior = list.Item(chave)
     
        If w.Cells(i, 6) <> maior Or w.Cells(i, 2) = "" Or w.Cells(i, 2) = 0 Then
        
            w.Rows(i).EntireRow.Hidden = True
        
        
        End If
    
     Next i
    
    
    
    Set list = Nothing
    Set dic = Nothing
    Set w = Nothing
    
    Erase m
    Erase mprincipal
    Application.ScreenUpdating = True
    Exit Sub
    
errMain:
    Application.ScreenUpdating = True
    MsgBox "Um erro ocorreu, verifique !"


End Sub