Finding Maximum from Cell to Last Entry in each column : Using For..Next

Hello all ,

What I like help with :

• I am trying to find maximum from a 44 values in 3 different columns. These three columns are 4 columns apart from each other . Example : values are in Range M9 thru M53 and Range P9 thru P53 and so on

I tried the following code

Sub Max_BM()
Dim col1
For col1 = 12 To 17 Step 3
If Cells(2, col1) > 0 Then   'predefined value in all these cell ranges
 a = WorksheetFunction.Max(Cells(2, col1).Offset(7, 1), Cells(2, col1).Offset(7, 1).End(xlDown))
End If
Next
End Sub

What it gives ?

• It gives the value of Cells(2, col1) .Offset(7, 1)
• It doesn't look until Cells(2, col1).Offset(7, 1).End(xlDown)

Any help is much appreciated.

Thank you