Bom Dia meus amigos!

Adianto que já aprendi muito com vcs.

O que preciso é: Tenho uma planilha que trabalham com 2 guias: ATIVOS, onde mostram os processos ativos até o momento e a guia DESLIGADOS onde mostram os processos já encerrados. Na guia ATIVOS, assim que a pessoa alterar a coluna A do status do processo para Desligado ele copia a linha para a guia DESLIGADOS e exclui na planilha anterior. Já tentei de tudo, mais o código sempre dá erro "13" de Tipos Incompatíveis em If Target.Value <> "Desligado" Then Exit Sub, por favor, me ajudem:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub
If Target.Value <> "Desligado" Then Exit Sub

Dim LR As Long
    With Sheets("Desligados")
        
    LR = .Cells(Rows.Count, 1).End(xlUp).Row
    .Cells(LR + 2, 1).Resize(, 7).Value = Cells(Target.Row, 1).Resize(, 7).Value
End With

Rows(Target.Row).Delete

End Sub

Abraço a todos!