Private Sub CommandButton1_Click() Dim riga As Long Sheets("Fattura").Select If Range("C62") = "" Then MsgBox "Inserire IBAN", vbInformation, "OBBLIGATORIO" End If riga = 2 While Sheets("Resoconto").Cells(riga, 1) <> "" riga = riga + 1 Wend Sheets("Resoconto").Cells(riga, 1) = Range("B18").Value Sheets("Resoconto").Cells(riga, 2) = Range("B20").Value Sheets("Resoconto").Cells(riga, 3) = Range("G12").Value Sheets("Resoconto").Cells(riga, 4) = Range("I52").Value End Sub