es funktioniert, eben nicht wie du es jetzt willst. Makros werden auf die Anforderung speziell zugeschnitten. Nur weil das Makro fast das macht was du willst, muß es für die aktuelle Anwendung trotzdem umgeschrieben werden. Dafür sind die Vorrausetzungen genau zu beschreiben.   

für gefilterte Bereiche gibt es die Teilergebnis-Funktion

Naja egal.
Augeteilt in eine Sub(makro) für die Bereichsübergabe und eine Function zum durcharbeiten und  färben. 
Selection nicht notwendig.
Es wird nur die benannte Spalte der intelligenten Tabelle bearbeitet, bzw der übergebene gefilterte Datenbereich.
subtotal = Teilergebnis (nur nicht weggefilterte Zeilen werden gezählt ), 
dannach alle sichtbaren Zellen auf Gleichheit mit Maxwert prüfen.
Typumwnadlung wenn Zahl as Text vorliegt. Zahlen in Anführungstrichen  z.b ("120") wird nicht beachtet.
Alle passenden Zellen werden in einen Bereich zusammengefasst und abschließend gefärbt.
Ungetestet. 

Sub bereichfaerben()   
    With ActiveSheet.ListObjects("DatenTabelle").ListColumns("Gewicht")
      Call Analyze_Max_Bad(.DataBodyRange)
    End With
End Sub

Function Analyze_Max_Bad(rngBereich As Range)

    Dim rngArea As Range, rng As Range, rngAlle As Range
    Dim vValue As Variant
            
    vValue = Application.WorksheetFunction.Subtotal(4, rngBereich)
    For Each rngArea In rngBereich.SpecialCells(xlCellTypeVisible)
       For Each rng In rngArea
         If IsNumeric(rng.Value) Then
            If CDbl(rng.Value) = vValue Then
                If rngAlle Is Nothing Then
                    Set rngAlle = rng
                Else
                    Set rngAlle = Union(rngAlle, rng)
                End If
            End If
         End If
      Next
    Next
    If Not rngAlle Is Nothing Then rngAlle.Interior.Color = vbRed
    
    Set rngAlle = Nothing: Set rngArea = Nothing: Set rng = Nothing
End Function