Option Explicit
Option Base 1

Sub Rio_Gains_Data()

'Author:    Roman "Rioran" Voronov
'Date:      the 23-rd of January, 2015
'Feedback:  voronov_rv@mail.ru

'Project which allows user to recieve numbers marked with green color of cells.
'Реализация алгоритма пользователя для получения чисел из зелёных ячеек.

Dim i As Long
Dim ArrA(), ArrB(), ArrC()
Dim StpC As Long, StpX As Long, Hght As Long

Dim Val1 As Double, ValA As Double
Dim Val2 As Double, ValB As Double
Dim Val3 As Double, ValC As Double
Dim Val4 As Double, ValD As Double

Hght = Cells(Cells.Rows.Count, 1).End(xlUp).Row
If Hght < 2 Then Exit Sub

ArrA = Range(Cells(2, 1), Cells(Hght, 5))
ReDim ArrB(Hght - 1, 5)
ReDim ArrC(1): StpC = 1

For StpX = 1 To Hght - 1
     ArrB(StpX, 1) = ArrA(StpX, 3) * ArrA(StpX, 4)
     ArrB(StpX, 2) = ArrA(StpX, 5) * ArrB(StpX, 1)
     ArrB(StpX, 3) = -(ArrB(StpX, 1) > 0) * ArrB(StpX, 1)
     ArrB(StpX, 4) = -(ArrB(StpX, 2) > 0) * ArrB(StpX, 2)
     ArrB(StpX, 5) = -(ArrA(StpX, 4) < 0) * ArrA(StpX, 3)
     If ArrB(StpX, 5) <> 0 Then
         For i = 1 To StpC
             If ArrB(StpX, 5) = ArrC(StpC) Then Exit For
             If i = StpC Then
                 StpC = StpC + 1
                 ReDim Preserve ArrC(StpC)
                 ArrC(StpC) = ArrB(StpX, 5)
                 Val3 = Val3 + 1
             End If
         Next i
     End If
Next StpX

With Application.WorksheetFunction
     Val1 = .Sum(.Index(ArrB, 0, 4, 1)) / .Sum(.Index(ArrB, 0, 3, 1))
     Val2 = .Max(.Index(ArrB, 0, 5, 1))
     Val4 = Val2 / Val3
     ValA = Val1
     ValB = Val4
     ValC = ValA + ValB
     ValD = ValA - ValB
End With

MsgBox "Значение 1:     " & Round(ValA, 4) & vbNewLine & _
        "Значение 2:     " & Round(ValB, 4) & vbNewLine & _
        "Значение 3:     " & Round(ValC, 4) & vbNewLine & _
        "Значение 4:     " & Round(ValD, 4)

End Sub