worksheetfunction countifs, counting down and across, application defined error

I think I just had it worked out.

Below is the code for reference:

Private Sub CommandButton1_Click()

Dim n As Long
Dim r As Long
Dim lastrowData As Long
lastrowData = Worksheets("IC Data Collection").UsedRange.Rows.Count

For n = 3 To 19
    For r = 2 To 7
    Worksheets("Quarterly Reports ALL").Cells(n, r) = Application.WorksheetFunction.CountIfs(Worksheets("IC Data Collection").Range("H2:H" & lastrowData), Worksheets("Quarterly Reports ALL").Cells(n, 1), Worksheets("IC Data Collection").Range("E2: E" & lastrowData), Worksheets("Quarterly Reports ALL").Cells(2, r))
    Next r
    Next n

    End

End Sub