VBA массивы и заполнения много заданий

[Denton72]

нужна помощь сделать вот такие программы
1.
надо сделать массив двухмерный который :tabula.jpg
пользователь вводит количество строк и колон и числа
0 это например (в картинке)
1
2
9

если пользователь вводит число например
1.45 то должно округлятся
1.45 >1.5 >2

2.программа Двухмерный массив
диапозон таблицы 6 на 6
цель
записать таблицу от клавиатуры (числа могут быть отрицательными)
переумнажать колоны таблицы (если в колоне 1 1 1 2 4 1 то 1*1*1*2*4*1=8)
и
найти колоны у которых обсолютные числа (модуль)меньше 10


и это всё

[Denton72]

1.

Option Compare Database
    Function Round(skaitlis As Double) As Double
    Round = Int(skaitlis * 100 + 0.01) / 100
    End Function
Public Sub ArrayVar17()
Dim x As Integer, y As Integer
Dim x1 As Double, y1 As Double
Dim result As String


x = InputBox("вводим x")
y = InputBox("вводим y")

ReDim skaitli(1 To x, 1 To y) As Integer

For x1 = 1 To x
    For y1 = 1 To y
   For y1 = 1 To y
    If x1 = y1 Then
    skaitli(x1, y1) = i ' ja [1,1] vai [2,2] 
    result = result & " " & skaitli(x1, y1)
   Else
        skaitli(x1, y1) = InputBox("Введите" & x1 & "," & y1)
        result = result & " " & skaitli(x1, y1)
end if
    Next y1
i=i+1
Next x1
MsgBox (result)
End Sub

сделал в конце концов но помогли всё равно

2.

Public Sub ArrayVar4()
Dim x As Integer, y As Integer
Dim x1 As Double, y1 As Double
Dim result As String



Dim skaitli(1 To 6, 1 To 6) As Integer

For x1 = 1 To 6
    For y1 = 1 To 6
        skaitli(x1, y1) = InputBox("Введите" & x1 & "," & y1)
        
    Next y1
Next x1
MsgBox ()
End Sub

у меня нет идеи как в цыкл положить эти числа и модуль сделать