Private Sub CommandButton1_Click()
Dim name As String
Dim age As Integer
name = InputBox("Enter name:", "Insert Information")
age = InputBox("Enter age:", "Insert Information")
Sheets("Depot").Range("A1").Value = name
Sheets("Depot").Range("B1").Value = age
End Sub