Vba for row number of evaluate and max

Hi all

Scratched my head with this one most of yesterday before giving up and now seeking your advice!!

The result of my code needs to select the row of a result using the below vba. The below will currently display the cells value.

Private Sub CommandButton3_Click()

Dim Newby As Single

With ActiveSheet

Newby = .Evaluate("MIN(IF(R1:R1000>=20,R1:R1000))")

Sheets("Data").Range("L1").Value = Newby

End With

End Sub

Any help greatly appreciated!!!