Esse procedimento do Aplicativo Microsoft Excel VBA, insere cor no cabeçalho da tabela onde é aplicado o autofiltro, com auxilio de combobox com cores relacionadas.

Option Explicit

Private Sub Worksheet_Calculate()
Dim sb As AutoFilter
Dim vFiltro As Filter
Dim vFiltroContador As Integer

If ActiveSheet.AutoFilterMode Then
Set sb = ActiveSheet.AutoFilter
vFiltroContador = 1
For Each vFiltro In sb.Filters
If vFiltro.On Then
sb.Range.Cells(1, vFiltroContador) _
.Interior.ColorIndex = Range("color")

Else
sb.Range.Cells(1, vFiltroContador) _
.Interior.ColorIndex = xlNone
End If
vFiltroContador = vFiltroContador + 1
Next vFiltro
Else
Rows(1).EntireRow.Interior.ColorIndex = xlNone
End If
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel

SaberExcel - o Site das Macros

Esta macro do Aplicativo Microsoft Excel VBA, contém uma macro que filtra os dados desejados para outra planilha.
Sub Procurar_por_palavra_e_copiar()

Dim vLocalizaLinha As Integer
Dim vCopiaLinha As Integer
Sheets("Plan2").Select
Range("a2:F26").ClearContents
Sheets("Plan1").Select
On Error GoTo Err_Execute

'Inicia busca na linha 4
vLocalizaLinha = 4

'Start copying data to row 2 in Plan2 (row counter variable)
'Comece a copiar dados para linha 2 em Plan2 (linha contariam a variável)
vCopiaLinha = 2

While Len(Range("A" & CStr(vLocalizaLinha)).Value) > 0

'Se valor na coluna E = "Caixa de Correio", copie a linha inteira a Plan2
If Range("E" & CStr(vLocalizaLinha)).Value = Range("H3").Value Then

'selecionando a planilha 1 para copiar
Rows(CStr(vLocalizaLinha) & ":" & CStr(vLocalizaLinha)).Select
Selection.Copy

'colando na planilha 2 na proxima linha
Sheets("Plan2").Select
Rows(CStr(vCopiaLinha) & ":" & CStr(vCopiaLinha)).Select
ActiveSheet.Paste

'Contador move para a proxima linha
vCopiaLinha = vCopiaLinha + 1

'volta para Planilha1 e continua a busca
Sheets("Plan1").Select

End If

vLocalizaLinha = vLocalizaLinha + 1

Wend

'reposiciona na celula (A3)
Application.CutCopyMode = False
Range("A3").Select

MsgBox "todos os dados procurados foram copiados para a Plan2."

Exit Sub

Err_Execute:
MsgBox "ocorreu um erro.", vbInformation, "Saberexcel - o site das macros"

End Sub

Aprenda Aplicativo Microsoft Excel VBA com SaberExcel