Codice inserimento dati:

Private Sub CmdAnnulla_Click()
    Unload Me
    Exit Sub
    End Sub

Private Sub CmdInvio_Click()

    On Error GoTo 3
    ActiveSheet.Unprotect
    
    NR = 0
    Do While Range("a" & NR + 1).Text <> ""
        NR = NR + 1
    Loop
    RigaIns = NR + 1
    
    If SwErrore = True Then
        Exit Sub
    End If
       
    Range("A" & RigaIns) = TxtReparto.Text
    Range("B" & RigaIns) = TxtIsola.Text
    Range("C" & RigaIns) = TxtCodiceArticolo.Text
    Range("D" & RigaIns) = TxtDescrizione.Text
    Range("E" & RigaIns) = TxtScartoPrevisto.Text
    Range("F" & RigaIns) = TxtMediaPrevista.Text
    Range("G" & RigaIns) = TxtCriticità.Text
    Range("H" & RigaIns) = TxtCliente.Text
    Range("I" & RigaIns) = TxtNote.Text
    
    
    
    ActiveSheet.Protect
    Dim obj As Control
For Each obj In Me.Controls
If TypeOf obj Is MSForms.TextBox Then
obj.Text = ""

End If
Next
   

   
    Exit Sub
3:
    If Err.Number <> 1004 Then
        Msg = "Errore " & Str(Err.Number) & " generato da " _
            & Err.Source & Chr(13) & Err.Description
        MsgBox Msg, , "Errore", Err.HelpFile, Err.HelpContext
    End If
    Exit Sub
End Sub

CODICE X COPY:
Worksheets("Foglio1").Range("A" & numriga).Copy
                ActiveSheet.Paste Destination:=Worksheets("Foglio4").Range("c2" & numriga)