Private Sub CommandButton1_Click()

Dim PeTable(1 To 5, 1 To 3) As Double
Dim x As Double
Dim y As Integer

PeTable(1, 1) = 0.2
PeTable(2, 1) = 0.4
PeTable(3, 1) = 0.6
PeTable(4, 1) = 0.8
PeTable(5, 1) = 1
PeTable(1, 2) = 0.1
PeTable(2, 2) = 0.2
PeTable(3, 2) = 0.3
PeTable(4, 2) = 0.4
PeTable(5, 2) = 0.5
PeTable(1, 3) = 0.2
PeTable(2, 3) = 0.4
PeTable(3, 3) = 0.6
PeTable(4, 3) = 0.8
PeTable(5, 3) = 1

For y = 1 To 5
        If (Range("N42").Value <= PeTable(y, 1)) Then
            Range("N48").Value = PeTable(y, 3)
        End If
Next y


x = 0

While (x <= Range("N48").Value)
        If (Range("N46").Value <= PeTable(y, 2)) Then x = PeTable(y, 3)
Wend

If (x < Range("N48").Value) Then Range("N48").Value = x






End Sub