Hi guys I was lucky enough a few days ago to get help from Marcelo Branco
he helped me find max value at lightning speed with this code:
Sub aTest()
Dim lastRow As Long, vData As Variant, vResult As Variant
Dim i As Long
With Sheets("Sheet1")
lastRow =...