Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([L6:L65536], Target) Is Nothing And Target.Count = 1 Then
If Target.Value > "" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Copy Destination:=Sheets("RECAP").Range("A" & Sheets("RECAP").Range("A65536").End(xlUp).Row + 1)
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Delete
End If
End If
End Sub