Sub test()
Dim Cel As Range
Dim TbloU(1 To 9, 1 To 9)
Dim TbloD(10 To 19, 10 To 19)
Dim TbloE(20 To 29, 20 To 29)
Dim TbloF(30 To 39, 30 To 39)
Dim TbloG(40 To 49, 40 To 49)
Dim DerLig As Long, I As Long
Dim J As Byte
DerLig = Cells(Rows.Count, 2).End(xlUp).Row - 2
For I = 2 To DerLig
For Each Cel In Cells(I, 2).Resize(1, 10)
If Cel.Value <> "" Then
For J = 2 To 11
Select Case Cel.Value
Case Is < 10
If Cells(I + 2, J).Value < 10 Then
TbloU(Cel, Cells(I + 2, J).Value) = TbloU(Cel, Cells(I + 2, J).Value) + 1
End If
Case Is < 20
If Cells(I + 2, J).Value >= 10 And Cells(I + 2, J).Value < 20 Then _
TbloD(Cel, Cells(I + 2, J).Value) = TbloD(Cel, Cells(I + 2, J).Value) + 1
Case Is < 30
If Cells(I + 2, J).Value >= 20 And Cells(I + 2, J).Value < 30 Then _
TbloE(Cel, Cells(I + 2, J).Value) = TbloE(Cel, Cells(I + 2, J).Value) + 1
Case Is < 40
If Cells(I + 2, J).Value >= 30 And Cells(I + 2, J).Value < 40 Then _
TbloF(Cel, Cells(I + 2, J).Value) = TbloF(Cel, Cells(I + 2, J).Value) + 1
Case Is < 50
If Cells(I + 2, J).Value >= 40 And Cells(I + 2, J).Value < 50 Then _
TbloG(Cel, Cells(I + 2, J).Value) = TbloG(Cel, Cells(I + 2, J).Value) + 1
End Select
Next J
End If
Next Cel
Next I
Range("O2").Resize(9, 9) = Application.Transpose(TbloU)
Range("O13").Resize(9, 9) = Application.Transpose(TbloD)
Range("O25").Resize(9, 9) = Application.Transpose(TbloE)
Range("O37").Resize(9, 9) = Application.Transpose(TbloF)
Range("O49").Resize(9, 9) = Application.Transpose(TbloG)
Range("Z5").Select
End Sub