increment value in same colmun using loop

[delta]

pls give me a code for vba for increment in value in same column. for your reference i attache the image file.

 

[p45cal]

Right-click on the sheet concerned's tab and choose View code, then paste the following to where the cursor is flashing:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
  With Range("A3:A10")
    .FormulaR1C1 = "=R[-1]C*(1+6%)"
    .Value = .Value
  End With
End If
End Sub

 

[Villalobos]

another

Sub sample()
Worksheets("Sheet1").Range("A3:A10").Formula = "=A2*1.06"
End Sub

 

[Belleke]

Solution with 100% VBA

Sub Belle()
Dim cells As Range
    For Each cells In Range("A3:A10")
        cells.Value = cells.Offset(-1, 0).Value + cells.Offset(-1, 0).Value * 6 / 100
    Next
End Sub

 

[delta]

Nice answer
thanks