Sub checkcode()
Set s_R = Worksheets("Лист1")

s_R.Cells(3, 2) = 44409
s_R.Cells(4, 2) = 45409

offer_range_start = 3
offer_range_end = 4

'находим минимальное значение в диапазоне
settledatemin = Application.WorksheetFunction.Min(Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2)))
'находим максимальное занчение в диапазоне
settledatemax = Application.WorksheetFunction.Max(Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2)))

With s_R.Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2))
Set rrange = .Find(what:=settledatemin, LookIn:=xlValues, lookat:=xlWhole)
If Not rrange Is Nothing Then

stmt = settledatemin

End If
End With

End Sub

settledatemin = Application.WorksheetFunction.Min(s_R.Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2)))
Cells(1, 1) = settledatemin
settledatemin = Cells(1, 1)

Set rrange = .Find(what:=CDate(settledatemin), LookIn:=xlValues, lookat:=xlWhole)

s_R.Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2)).NumberFormat = "General"