Funciton Call Up A Value

I have three macro's.
1) Execute
2) CreateMatrix
3) CollectDebtCount

What I want to do is have the macro called Execute call up and trigger CollectDebtCount macro and CreateMatrix macro.

My problem is the value to limit the For/Next block in CreateMatrix is not using the value generated by the CollectDebtCount.

An example of the output is as follows: If the user enters the number 3 to the question "How many different type of debt do you own?", then the macro CreateMatrix should generate the list starting in cell A2, the value = 1, then in cell A3, value = 2, and in cell A4, value = 3.

Sub CollectDebtCount()
Dim Question
Question = InputBox("How many different type of debt do you own?")
Trim Question
End Sub
Sub CreateMatrix()
J = 2
I = 1
Dim Count
For Count = 1 To Question
Cells(J, I).FormulaR1C1 = Count
Count = Count + 1
Next.......................................