VBA - FORMULA IF

[Ana Oliveira 14]

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

[Alyson Ronnan Martins]

Boa noite @Ana Oliveira 14

Não entendi bem seu objetivo. É para verificar se uma linha esta com o valor na coluna D "reprovado" ou todas as linhas estão "reprovadas"?