Function FindLower(ByVal ThisCell As Range, ByVal ColAccross As String)
    Dim Lastrow As Single
    Dim I As Integer
    Dim TestVal As String, Testdbl As Double, retval As String
    Dim TestBool As Boolean
    Dim RangeList(6) As Integer
    'set value of Lastrow
    
    Lastrow = Range("B65000").End(xlUp).Row
    TestBool = False
    
    For I = 52 To 58
        TestVal = Range("B" & I).Value
            Do Until TestBool = True
                'check to see if you can change a value to a Double
                On Error GoTo NotNumeric
                TestBool = True
                Testdbl = CDbl(TestVal)
            Loop
            TestBool = False
        RangeList(I - 51) = Testdbl
    Next I
    
    'switch error handling off
    On Error GoTo 0
    
    'find first lower than
    For I = 1 To Lastrow - 1
        If ThisCell.Value <= RangeList(I) Then
            retval = Range("B" & I + 51).Offset(0, ColAccross).Formula
            FindLower = retval
            Exit For
        End If
    Next I
    
   Exit Function
   
NotNumeric:
   TestBool = False
   TestVal = Right(TestVal, Len(TestVal) - 1)
   Resume
End Function