Sub Main_Click()

Dim i As Integer

Dim R1, R2, Step1, Multi, Mults  As Long

R1 = InputBox("PC")

Multi = 0

Mults = 0

For i = 1 To 5

Range("PC").Cells(i) = R1 * (1 + Multi)

Multi = Multi + 0.2

For j = 1 To 4

If j = 1 Then

Mults = 1

Range("PD").Cells(j) = Mults * 0.04

Else

Mults = Mults + 1

Range("PD").Cells(j) = Mults * 0.04

End If

Range("UK").Cells(i, j) = Range("PD").Cells(j) * Range("PC").Cells(i) * Range("BK").Value

Next j

Next i

End Sub