help to create loop in a defined range

hi all
i am newbie in Excel VBA
i created list in Excel and i wrote into (a1 cell-income, b1 cell-expence, c1 cell-kredit and d1 cell-debet)
i enter a2 cell income (for ex:1000) and b2 cell expence (for ex: 100)
and I give condition in VBA that if income greater than expence then VBA writes a2.value-b2.value into d2 cell
else if expence greater than income then it writes b2.value-a2.value into c2 cell
but i only define this one row (for ex: c2, a2. b2. d2)
i would like to assign it the rows as long as i want
that is i would like to create loop
(for ex: a(i), b(i) and so on

here is code

pls help me i very need this code
thanks beforehands

Sub initialize()Dim i As IntegerDim lastrow As Long If (Range("b2").Value > Range("a2").Value) Then Range("c2").Value = Range("b2").Value - Range("a2").Value Range("d2").Value = "" Else Range("d2").Value = Range("a2").Value - Range("b2").Value Range("c2").Value = "" End If End SubSub initialize()
Dim i As Integer
Dim lastrow As Long

If (Range("b2").Value > Range("a2").Value) Then
 Range("c2").Value = Range("b2").Value - Range("a2").Value
 Range("d2").Value = ""
 Else
 Range("d2").Value = Range("a2").Value - Range("b2").Value
 Range("c2").Value = ""

End If

End Sub

Hello azegurb,

This macro will size your range based on the last entry in column "A". It will then loop through each cell and apply the calculations.

Sub initialize()

  Dim Cell As Range
  Dim Rng As Range
  Dim RngEnd As Range
  Dim Wks As Worksheet
  
    Set Wks = Worksheets(1)
    
    Set Rng = Wks.Range("A2")
    Set RngEnd = Wks.Cells(Rows.Count, Rng.Column).End(xlUp)
    Set Rng = IIf(RngEnd.Row < Rng.Row, Rng, Wks.Range(Rng, RngEnd))
    
      For Each Cell In Rng
        If Cell.Offset(0, 1) > Cell Then
           Cell.Offset(0, 2) = Cell.Offset(0, 1) - Cell
           Cell.Offset(0, 3) = ""
        End If
        If Cell > Cell.Offset(0, 1) Then
           Cell.Offset(0, 3) = Cell - Cell.Offset(0, 1)
           Cell.Offset(0, 2) = ""
        End If
      Next Cell
      
End Sub