Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 4 Then Exit Sub
ini = 1
FinA = Range("A" & Rows.Count).End(xlUp).Row
FinB = Range("b" & Rows.Count).End(xlUp).Row
FinC = Range("C" & Rows.Count).End(xlUp).Row
Find = Range("D" & Rows.Count).End(xlUp).Row
For i = 1 To Range("g" & Rows.Count).End(xlUp).Row
ce = Application.WorksheetFunction.CountIfs(Range("A" & ini & ":A" & FinA), Cells(i, 7))
ci = Application.WorksheetFunction.CountIfs(Range("B" & ini & ":B" & FinB), Cells(i, 9))
li = Application.WorksheetFunction.CountIfs(Range("c" & ini & ":c" & FinC), Cells(i, 11))
oX = Application.WorksheetFunction.CountIfs(Range("d" & ini & ":d" & Find), Cells(i, 13))
Cells(i, 8) = ce
Cells(i, 10) = ci
Cells(i, 12) = li
Cells(i, 14) = oX
Next
End Sub