Excel VBA

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