B
Barry
I started the vba process below as a macro, but now would like to add to it
code to step down two rows and repeat the process (loop) at that point, maybe
until it reaches a null value (or the first blank row in the spreadsheet.
What I am trying to do is have it insert a new row after every two rows of
data, and sum the two rows of data (in a single column).
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Range("A2:A3").Select
Range("A3").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("A2:A4").Select
code to step down two rows and repeat the process (loop) at that point, maybe
until it reaches a null value (or the first blank row in the spreadsheet.
What I am trying to do is have it insert a new row after every two rows of
data, and sum the two rows of data (in a single column).
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Range("A2:A3").Select
Range("A3").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("A2:A4").Select