Проверка данных вводимых пользователем

Sub Ввод()
Worksheets("таблица").Select 'выбор листа "таблица"
Worksheets("таблица").Range("A2:F11").ClearContents ' Очистка таблицы
'цикл со счетчиком осуществляет запись вводимого значения в соответствующую ячейку
'до тех пор, пока мы соглашаемся вводить данные
For i = 1 To 10
Worksheets("таблица").Cells(1 + i, 1).Value = i
Worksheets("таблица").Cells(1 + i, 2).Value = InputBox("Наименование товара", "Ввод данных")
Worksheets("таблица").Cells(1 + i, 3).Value = Val(InputBox("Затраты на производство, руб.", "Ввод данных"))
Worksheets("таблица").Cells(1 + i, 4).Value = Val(InputBox("Стоимость продажи, руб.", "Ввод данных"))
x = MsgBox("Продолжать ввод данных ?", vbYesNo, "Вопрос пользователю") 'Вопрос о продолжении ввода данных
If x = 7 Then Exit Sub 'Выход из цикла, в случае когда, пользователь нажимает кнопку "нет"
Next i
MsgBox "Ввод данных закончен", vbOKOnly, "Ввод данных"
End Sub

Private Sub Test()
 
For i = 2 To 11
    Worksheets("Таблица").Cells(i, 1).Value = i - 1
    Worksheets("Таблица").Cells(i, 2).Value = InputBox("Наименование товара", "Ввод данных")
    Worksheets("Таблица").Cells(i, 3).Value = GetNumber("Затраты на производство, руб.", "Ввод данных")
    Worksheets("Таблица").Cells(i, 4).Value = GetNumber("Стоимость продажи, руб.", "Ввод данных")
Next
    
End Sub
 
Private Function GetNumber#(Prompt$, Title$)
    Do
         temp = Replace(InputBox(Prompt, Title), ".", ",")
    Loop Until IsNumeric(temp)
    GetNumber = CDbl(temp)
End Function

Range("A1") = Application.InputBox("Затраты на производство, руб.", "Ввод данных", Type:=1)