alguém pode me ajudar ?! Resumidamente tenho uma planilha que contém 4 abas, onde a primeira é para base, nessa base vou colocar na minha coluna D denominada como "STATUS" a situação de cada conhecimento eletrônico, a partir do que eu inserir na coluna D eu quero que a LINHA toda vá para outra aba da planilha, fiz a fórmula abaixo mas não está dando certo
Sub TESTE()
Range("D1:D1000").Select
If Range("D1:D1000").Value = "REPROVADO" Then
Selection.Cut
Sheets("REPROVADO").Select
Row = Range("A104887").End(xlUp).Row + 1
Else
Range("D1:D1000").Column.Value = "GERAL"
End If
Range("D1:D1000").Select
ActiveCell.Formula2R1C1 = "OS FECHADA"
If Range("D1:D1000").Column.Value = "OS FECHADA" Then
Selection.Cut
Sheets("OS FECHADA").Select
Row = Range("A104887").End(xlUp).Row + 1
Else
Range("D1:D1000").Value = "GERAL"
End If
Range("D1:D1000").Select
If Range("D1:D1000").Column.Value = "EM ANALISE" Then
Selection.Cut
Sheets("EM ANALISE").Select
Row = Range("A104887").End(xlUp).Row + 1
Else
Range("D1:D1000").Value = "GERAL"
End If
End Sub