VBA example - Multiple condition and nested loop

Private Sub CommandButton1_Click()
Dim x As Range
Dim wb As Workbook
Dim ws As Worksheet

Set wb = ActiveWorkbook
Set ws = wb.Sheets("July")

Dim LastLine As Integer

Dim rng As Range

Set rng = ws.Range("A2:D28")

Dim i As Integer
Dim j As Integer
Dim s As String

Dim Analyst As String
Dim Prime As Integer
Dim SubPrime As Integer
Dim AltA As Integer

For j = 2 To 10
Let s = "A" & j
Let Analyst = Range(s).Value
Let Prime = 0
Let SubPrime = 0
Let AltA = 0
    For i = 1 To 27
        If rng(i, 4) = Analyst And rng(i, 3) = "Prime" Then Prime = Prime + 1
        If rng(i, 4) = Analyst And rng(i, 3) = "SubPrime" Then SubPrime = SubPrime + 1
        If rng(i, 4) = Analyst And rng(i, 3) = "Alt-A" Then AltA = AltA + 1
   
    Next i
    Let s = "B" & j
    Range(s).Value = Prime
    Let s = "C" & j
    Range(s).Value = SubPrime
    Let s = "D" & j
    Range(s).Value = AltA
Next j

End Sub