Hi, mubashar,

maybe like this avoiding a loop:
With WorksheetFunction
  MsgBox .CountIf(Range("M:M"), ">149") - .CountIf(Range("M:M"), ">201")
End With
Ciao,
Holger