Visual Basic para Aplicaciones - Sumar filas iguales

Option Explicit

Sub Totales()

    Dim Texto_1 As String, Lin_1 As Long, Suma As Single, _

        Texto_2 As String, Lin_2 As Long

    ' ---&---  Guardo la primera linea de texto

    Lin_1 = 2

    Suma = Cells(Lin_1, 12)

    Texto_1 = Cells(Lin_1, 2) & Cells(Lin_1, 3) & Cells(Lin_1, 4) & Cells(Lin_1, 6)

    Lin_2 = 3

    While Cells(Lin_2, 1) <> Empty

        Texto_2 = Cells(Lin_2, 2) & Cells(Lin_2, 3) & Cells(Lin_2, 4) & Cells(Lin_2, 6)

        If Texto_1 = Texto_2 Then

            Suma = Suma + Cells(Lin_2, 12)

            Cells(Lin_1, 14) = Suma

        Else

            Lin_1 = Lin_2

            Suma = Cells(Lin_1, 12)

            Texto_1 = Texto_2

        End If

        Lin_2 = Lin_2 + 1

    Wend

End Sub