Sub blah()
Set CHData = Sheets("Consolidated History").Range("A1").CurrentRegion
Set CHData = Intersect(CHData, CHData.Offset(1)) 'just the databody, not the headers.
Sheets("Sheet2").Range("B3").Value =Application.WorksheetFunction.SumIfs(CHData.Columns("J"), CHData.Columns("K"), "<>Leave", CHData.Columns("K"), "<>Holiday")
'longhand:
'Z = Application.WorksheetFunction.SumIfs(CHData.Columns("J"), CHData.Columns("K"), "<>Leave", CHData.Columns("K"), "<>Holiday")
'MsgBox Z
'Sheets("Sheet2").Range("B3").Value = Z
End Sub