Sub test()
Dim myArray() As Variant
myArray = ActiveSheet.UsedRange.Value
On Error Resume Next
For i = 1 To UBound(myArray)
    If myArray(i, 1) Like "*,*" Then
        t1 = i
        On Error Resume Next
        For i2 = i + 1 To UBound(myArray)
            If myArray(i2, 1) Like "*Всего*" Then
                t2 = i2
                Application.Transpose (myArray)
                ActiveSheet.Range(Cells(i, 1), Cells(i2 - 1, UBound(myArray))).Select
                Selection.Rows.Delete
                Application.Transpose (myArray)
                myArray = ActiveSheet.UsedRange.Value
                GoTo Lb1
            End If
        Next
    End If
Lb1:
Next
End Sub