VBA- Copia di un'unica riga da un foglio ad un altro foglio

Sì. È quello che vorrei, hai centrato il concetto.

Con il codice linkato (che, ripeto, è perfetto e mi è stato di molto aiuto) copio, sul foglio2, i dati e le righe filtrate. Vorrei, come hai detto tu, poter modificare una riga della tabella e quindi aggiungere solo quella riga all'altro foglio. Avrei, in questo modo, un elenco delle modifiche effettuate, e dei dati copiati, più vicino alle mie esigenze. L'ideale sarebbe che, una volta copiata la riga sul foglio2, la stessa sia cancellata dal foglio1.

Proviamo con un esempio. Nel Foglio1 ho dati che vanno da A a L. La colonna L può contenere solo(immagino con una convalida) Dimesso o In terapia. Voglio che, se modifico il dato in colonna N nel Foglio1, il contenuto della riga venga copia/incollato nella tabella del Foglio2 e contemporaneamente cancellato dal Foglio1. Questo il codice da inserire nel modulo di codice *del Foglio1*:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sh As Worksheet
    Dim lRiga
    Set sh = ThisWorkbook.Worksheets("Foglio2")
    lRiga = sh.Range("A" & Rows.Count).End(xlUp).Row
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 12 Then
        Select Case UCase(Target.Value)
            Case "DIMESSO", "IN TERAPIA"
                Me.Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Copy _
                    Destination:=sh.Range("A" & lRiga + 1)
                Me.Rows(Target.Row).EntireRow.Delete
        End Select
    End If
    Set sh = Nothing
End Sub

Ogni colta che selezionerai uno dei due valori in colonna N, avverrà quanto descritto.

NOTA. Io non controllo con questo codice se le altre celle della riga del Foglio1 contengono qualcosa, quindi se modifichi in colonna L porti comunque la riga dal Foglio1 al Foglio2. Posso controllare se tutte le celle della riga(lungo) o se determinate celle della riga sono piene. Fai sapere. Grazie.