Formula to be inserted on all sheets from a certain sheet onwards

[howard]

I have the following formula that must be inserted on all sheets from BR1 Sales

If I am on sheet BR1 Sales , the formula in only inserted on this sheet , but not on the sheets after this

It would be appreciated if someone could kindly amend my formula

 Sub Formula_Balance()
Dim I As Long, LR As Long

For I = Sheets("BR1 Sales").Index To Worksheets.Count
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("H1").Value = "Balance"
Range("H2:H" & LR).FormulaR1C1 = "=RC[-2]-RC[-1]"


Next I
End Sub

 

[howard]

I have managed to resolve this

 Sub Formula_Balance()
Dim I As Long, LR As Long

For I = Sheets("BR1 Sales").Index To Worksheets.Count
With Worksheets(I)

LR = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("H1").Value = "Balance"
.Range("H2:H" & LR).FormulaR1C1 = "=RC[-2]-RC[-1]"
End With


Next I
End Sub