You could maybe make the formulas you don't want to calculate dependent on
another cell, for example:-
=IF(A1="A",SUM(I1:I6),"")
This would calculate of course, but wouldn't give a result unless A1
contained 'A'
Regards,

You could then set up a Change Event procedure that calls the CalculateRow4
whenever any of the cells in row4 change. By using named areas you could make it
easy to read.

In the Sheet VBA code

Private Sub Worksheet_Change(ByVal Target As Range)

 Dim isect As Range

 Set isect = Application.Intersect(Target, Range("Data"))
 If Not (isect Is Nothing) Then
   Range("Data").Calculate  'You could calc a different range here if required.
 End If

End Sub