Sub stats()


    Dim rngstart As Range
    Dim rngend As Range
rngstart = Worksheets("Sheet1").Range("A34:A132").Find("start", lookat:=xlWhole).Offset(0, 2).Address
rngend = Worksheets("Sheet1").Range("A34:A132").Find("end", lookat:=xlWhole).Offset(0, 2).Address


    ' MAX VALUE IN RANGE'
For i = 0 To 17
If Worksheets("Sheet1").Range(Cells(34, 3 + i)).Value <> "" Then
Worksheets("Sheet1").Range(Cells(133, 3 + i)).Value = WorksheetFunction.Max(Range(Replace(rngstart & ":" & rngend.Address, "$", "")))
End If
Next

    Worksheets("Sheet1").Range(Cells(133, 3)).Value = WorksheetFunction.Max(Range(rngstart.Address & ":" & rngend.Address))

  Range("C122").Value = rngstart.Address

    End Sub