无法正确显示我的答案（或可能循环）

Question

所以我必须创建一个程序，它从列中取出任何数字并将其乘以另一个任意数字以得到结果。如果小于或等于零，则也无法显示结果。如果我只使用一个数字，我可以让它工作，但至少可以说这并不令人印象深刻。因此，假设任意数字是2，那么表格看起来应该是这样的，如果答案是否定的，则不会显示。

所以这是我的实际代码，我确定是垃圾：

Function multpos(n)
Dim i As Integer
For i = 1 To 10
    Cells(i, 2).Value = Cells(i, 1) * n
Next i
If multpos(n) <= 0 Then Cell(i, 2).Value = "The value is less than or equal to zero"
End Function

它就像单元格（i，2）自我引用自己，即使我只是想让它们显示来自单元格的答案（1：10,2）。有关示例，请参阅示例屏幕截图。

老实说，我不知道自己在做什么，因为我是学生的新手，所以任何帮助都会受到赞赏。