Dim MonthlyIncome() As Variant
Dim Answers() As Variant
Dim B1 As Long
Dim i As Long
'READ DATA FROM SHEET
MonthlyIncome = Sheet1.Range("B2:B6")
B1 = UBound(MonthlyIncome, 1)
ReDim Answers(1 To B1, 1 To 3)
'CALCULATION
For i = 1 To B1
Answers(i, 1) = MonthlyIncome(i, 1) * 12
Answers(i, 2) = (MonthlyIncome(i, 1) * 12 * 10) / 100
Answers(i, 3) = Answers(i, 1) - Answers(i, 2)
Next i
'WRITE TO SHEET
Sheet1.Range("D2").Resize(B1, 3).Value2 = Answers
'CLEAR ARRAY
Erase MonthlyIncome
Erase Answers