countifs VBA

[Godders199]

Hello, I have worked out the following code which is working fine, i have however been asked to add an additional criteria in, but to be honest i am not sure where to start.

Dim Daterng As Long
Dim Daterng1 As Long
Daterng2 = Worksheets("Homepage").Range("k2") 'check date'
Daterng3 = Worksheets("Homepage").Range("k3")
'check date'Dim lastrowcolumnA As Long
lastrowcolumnA = Range("a" & Rows.Count).End(xlUp).row
For i = 2 To lastrowcolumnA
Cells(i, 8) = WorksheetFunction.CountIfs(ThisWorkbook.Sheets("Adviser data").Range("A:A"), Cells(i, 1), ThisWorkbook.Sheets("Adviser data").Range("k:k"), ">=" & Daterng, ThisWorkbook.Sheets("Adviser data").Range("k:k"), "<=" & Daterng1, ThisWorkbook.Sheets("Adviser data").Range("l:l"), "", ThisWorkbook.Sheets("Adviser data").Range("m:m"), "")

I need add in if column 14 contains "fail" and the date in column K is quarter 1 to the countifs formula.

hope this makes sense to someone.

thank