Boa tarde!!

Seria isso?

SubSub AleVBA_16376()
'Condirendo que os dados estão na coluna D
    Dim i As Range
    Application.ScreenUpdating = 0
        For Each i In Range("D1:D1000")
            If i.Value = "Inativo" Then
                i.Select
                ActiveCell.Rows("1:1").EntireRow.Select
                Selection.Copy
                Sheets("Fornecedores Inativos").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
            End If
        Next i
    Application.ScreenUpdating = 1
End Sub

Att

Olá novamente!

Vou propor um código baseado na planilha que montei no post de fórmulas (http://www.planilhando.com.br/forum/viewtopic.php?f=20&t=16374).

Neste caso, você não vai usar a última coluna de apoio, portanto, apague ela e apague os fornecedores da planilha inativos e mantenha somente o cabeçalho.

Use o seguinte código:

Sub inativos()
    
    Dim cell As Excel.Range
'Laço de repetição para varrer a coluna onde laça o status Inativo e copiar e jogar para planilha Inativos
    For Each cell In Excel.Range("Tab_Fornecedores[Situação]")
        If cell.Value = "Inativo" Then
            cell.EntireRow.Copy
            Sheets("Inativos").Select
            Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Activate
           Selection.PasteSpecial Paste:=xlPasteValues
        End If
    Next cell
    
'Laço de repetição para apagar as linhas dos fornecedores inativos
    For Each cell In Excel.Range("Tab_Fornecedores[Situação]")
        If cell.Value = "Inativo" Then
            cell.EntireRow.Delete Shift:=xlUp
        End If
    Next cell
    
End Sub

Você pode associar esse código a um botão, ou se desejar alterar para um evento do tipo change ou outro da sua planilha.

Abraços!

Boa noite, Srs.

Essa mesma rotina tem a possibilidade de quando eu clicar na linha ela passar somente a linha clicada e não todas novamente ?

Cara, pra esse mesmo caso, mas em fórmulas (como vc já tinha me ajudado),

Além da ponderação de fornecedores ativos ou inativos, eu abri uma outra guia para fornecedores ativos automotivos. Me baseei na condicional usada para o caso "Inativos", com uma coluna na planilha matriz com a fórmula "ContSe" e na guia "Automotivos" usei a mesma condicional "SEERRO" para puxar os valores, porém puxou tbm os automotivos inativos, para não puxá-los eu fiz: =SE(A6="Inativo";A7;SE(E6="Automotiva";CONT.SE($E$5:E6;"Automotiva");"")). Nessa fórmula quando já identifica o inativo ela pula para próxima linha, mas na planilha destino (Automotivos) aparece as linhas puladas.

É possível fazer uma fórmula com a qual não pule as linhas na planilha destino ??

Espero que eu tenha conseguido passar minha dificuldade depois dessa confusão rs

abraço