Guru do Excel e Power BI

Sub AleVBA_2427()
    Dim rngA As Range
    Dim cell As Range
     
    Set rngA = Range("NX6:OQ6")
    For Each cell In rngA
        If cell.Value = [OT4].Value Then
            cell.Select
            Selection.AutoFilter Field:=ActiveCell, Criteria1:=Range("OV4").Value
        End If
    Next cell
End Sub

Sub AleVBA_2427()
Dim i As Integer, rngData As Range
Dim wsF As Worksheet:    Set wsF = Sheets("Origem")
Dim wsR As Worksheet:    Set wsR = Sheets("Resultado")

Set rngData = wsF.Range("NX6").CurrentRegion '<- Fixa uma região para atuação do filtro
    wsR.Columns("K").ClearContents           '<- Limpa os dados da coluna K
'-> Localiza o cabeçalho baseado em critério em outra guia
    i = Application.WorksheetFunction.Match(wsR.Range("B3").Value, wsF.Range("NX6:OQ6"), 0)
'-> Filtra os dados
    rngData.AutoFilter Field:=i, Criteria1:=wsR.Range("D3").Value
'-> Copia os dados filtrados para outra guia
    With wsF
        LastRow = .Cells(Rows.Count, "NV").End(xlUp).Row
        .Range("NV7:NV" & LastRow).Copy Destination:=wsR.Range("K1")
        .ShowAllData 'Remove o filtro
    End With
'-> Remove a cor do preenchimento da coluna
    With Columns("K:K").Interior
        .ColorIndex = xlNone
    End With
End Sub