2つの配列の値を比較してサンプルを数える（Countifs系)コードについてアドバイスお願いいたします。
ListP()as Currency とGPR() as Stringという配列で、欲しいサンプルは、以下の5個です。
ListPが60以上の、サンプル数、SamSix
ListPが６０以上かつ、GPRが４つの文字列である数、SB,SHB,SL,SHL
For n = 1 To 1000
If ListP(n, x) = Empty Then
Exit For
ElseIf ListP(n,x) >= 60 Then
SamSix = SamSix + 1
If GPR(n, x) = "B" Then
SB = SB + 1
ElseIf GPR(n, x) = "HB" Then
SHB = SHB + 1
ElseIf GPR(n, x) = "L" Then
SL = SL + 1
ElseIf GPR(n, x) = "HL" Then
SHL = SHL + 1
End If
End If
Next n

このループを多用（約１万回）しているのですが、ループを使用しなかったり、もっとスピードの出るアイデアはございませんでしょうか？
5個のサンプルを取得できれば満足です。
よろしくお願いいたします。