Private Sub Worksheet_Change(ByVal Target As Range)
Dim I as Byte
Dim vDec as Long
'Grand Total
For I = 0 to 29
vDec = I * 13
'Original Budget
If Target.Address = range('$E$7'Â'Â').offset (vDec).address Then
Range('E1129'Â'Â').offset(vDec) = Range('E7'Â'Â').offset(vDec) + range('E417'Â'Â').offset(vDec)
End If
....
next I
End If