Questo è il codice:
- Codice: Seleziona tutto
Sub inseriscidati()
Dim Y As Variant
Y = ActiveCell.Row
Worksheets("foglio1").Select
Rows(Y).Select
Selection.Insert Shift:=xlDown
Worksheets("foglio1").Select
Cells(Y, 1).Select
Dim Message, Title, MyValue
'sotto: Imposta il messaggio.
Message = "Inserisci Dati :"
Title = "Inserimento Dati"
MyValue = InputBox(Message, Title)
If MyValue <> "" Then
Cells(Y, 1).Value = MyValue
End If
Set Y = Nothing
End Sub