Sub Tablica()Dim i As Long For i = 3 To 7 Cells(i, "D") = WorksheetFunction.CountIf(Range("G3:G66"), Cells(i, "F")) NextEnd Sub