So in etwa:

Sub KontoNr()
'Autofilter setzen und lösen
Tabelle1.Range("A3").AutoFilter
 
'Filtern: Bestimmter Wert
Tabelle1.Range("A3").AutoFilter Field:=1, Criteria1:="Government"

Dim n As Integer

n = 3
Sheets(1).Select

With Range("A:A").Cells.SpecialCells(xlCellTypeVisible)
    Do Until .Cells(n, 1).Value = ""
        If Cells(n, 1).Value = "Government" Then Cells(n, 1).Offset(0, 3).Interior.ColorIndex = 50
     n = n + 1
    Loop
End With
End Sub

Für Filterwert und Farbe will ich noch Parameter einsetzen. Muss ich noch ausprobieren. Für Verbesserungsvorschläge bin ich offen.