Sub MMM()
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(6, Columns.Count).End(xlToLeft).Column
With CreateObject("VBScript.RegExp")
.Pattern = "\[\d+\]"
.Global = True
Cells(6, LC + 1) = "O‘zlashtirish"
For i = 7 To LR
Sum = 0
For j = 4 To LC
If .Test(Cells(i, j)) Then Cells(i, j) = .Replace(Cells(i, j), "")
Sum = Sum + Cells(i, j).Value
Next
av = Round(Sum / (LC - 3), 0)
Select Case av
Case 1 To 60
Cells(i, LC + 1).Value = 2
Cells(i, LC + 1).Font.Color = vbYellow
Case 61 To 70
Cells(i, LC + 1).Value = 3
Cells(i, LC + 1).Font.Color = vbGreen
Case 71 To 90
Cells(i, LC + 1).Value = 4
Cells(i, LC + 1).Font.Color = vbBlue
Case 91 To 100
Cells(i, LC + 1).Value = 5
Cells(i, LC + 1).Font.Color = vbRed
End Select
Next

End With
End Sub