Om de rij een functie of som invoegen

[DeArie]

Hi,

Ongetwijfeld dat het heel makkelijk kan, maar ik zou graag op de even rijen een som of functie invoegen bij een niet altijd gelijk aantal rijen.
Het betreft bijvoorbeeld dat er op
rij 2 op A2 ( =B1+1 ) en op B2 ( =A3-1 ) moet komen staan.

In het bijgevoegde voorbeeld heb ik 527 rijen maar dit varieert dus.

Kan iemand me helpen?

Alvast dank.

Bekijk bijlage Voorbeeld 1.XLSB

 

[Cobbe]

Test deze eens:

Sub cobbe()
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
For regel = 4 To Lastrow Step 2
 Cells(regel, "a") = "=B" & regel - 1 & "+1"
  Cells(regel, "b") = "=A" & regel + 1 & "-1"
Next
End Sub