Sub y()
Dim c As Range, lrow As Long, whatever As Double
lrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For Each c In Sheet1.Range("A2:A29" & lrow)
If c.Value = "Mike" And c.Offset(0, 1).Value = "Fax" Then
whatever = whatever + c.Offset(0, 3).Value
End If
Next c
Range("G21").Formula = "=" & whatever & " / SUMPRODUCT(--(A2:A29=""Mike""),--(B2:B29=""Fax""))"
R
ange("G22").Formula = "=" & whatever & " - Range("M19") * Range("M25")
Application.ScreenUpdating = True
End Sub
Bookmarks