Maybe:
Sub boddulus()
Dim i As Long, u As Long, v As Long, w As Long, x As Long, y As Long
For i = Range("B" & Rows.Count).End(3).Row To 2 Step -1
If Cells(i, "B").Value = "not suppresed" Then Rows(i).Delete
If Cells(i, "F").Value = "CAXW" Then Rows(i).Delete
Next i
u = 0
v = 0
w = 0
x = 0
y = 0
For i = Range("B" & Rows.Count).End(3).Row To 2 Step -1
If Cells(i, "K") = "missing prices" And Cells(i, "L") = "London" Then u = u + 1
If Cells(i, "K") = "mv change" And Cells(i, "L") = "Stamford" Then v = v + 1
If Cells(i, "K") = "No duration" And Cells(i, "L") = "zurich" Then w = w + 1
If Cells(i, "K") = "mv change" And Cells(i, "L") = "London" Then x = x + 1
If Cells(i, "K") = "missing prices" And Cells(i, "L") = "zurich" Then y = y + 1
Next i
Sheets("Totals").Cells(2, "C") = u
Sheets("Totals").Cells(3, "C") = v
Sheets("Totals").Cells(4, "C") = w
Sheets("Totals").Cells(5, "C") = x
Sheets("Totals").Cells(6, "C") = y
End Sub
Bookmarks