Исправить ошибки в коде - VBA (51128)

Private Sub CommandButton4_Click()
Dim m() As Integer
Dim i As Integer
 For i = 1 To 8
  On Error Resume Next
   m(i) = CInt(InputBox("Введите число"))
             If Err Then
        MsgBox "Неверное число", vbInformation
        Exit Sub
 
     End If
 Next
 For i = 1 To UBound(m)
  Cells(i, 6) = i
  Cells(i, 7) = m(i)
  Next
End Sub