Macro - Merge cell if same BL and sum and merge same BL

try

Sub ertert()
Dim i&, j&, Lr&, sm#
Lr = Cells(Rows.Count, 1).End(xlUp).Row
With Application
    .ScreenUpdating = False: .DisplayAlerts = False
    For i = 3 To Lr
        sm = Cells(i, 7): j = i
        Do While Cells(i, 1) = Cells(i + 1, 1)
            sm = sm + Cells(i + 1, 7)
            i = i + 1: If i > Lr Then Exit Do
        Loop
        If i > j Then
            Cells(j, 1).Resize(i - j + 1).Merge
            Cells(j, 7).Resize(i - j + 1).Merge
            Cells(j, 7).Value = sm
        End If
    Next i
    .ScreenUpdating = True: .DisplayAlerts = True
End With
End Sub

Great it works, i will try this codes using my new template and i hope it works fine too.
i never imagine that it will be possible. you're the best.

Thanks.

sir please help again if i encounter error.

Originally Posted by nilem

try

Sub ertert()
Dim i&, j&, Lr&, sm#
Lr = Cells(Rows.Count, 1).End(xlUp).Row
With Application
    .ScreenUpdating = False: .DisplayAlerts = False
    For i = 3 To Lr
        sm = Cells(i, 7): j = i
        Do While Cells(i, 1) = Cells(i + 1, 1)
            sm = sm + Cells(i + 1, 7)
            i = i + 1: If i > Lr Then Exit Do
        Loop
        If i > j Then
            Cells(j, 1).Resize(i - j + 1).Merge
            Cells(j, 7).Resize(i - j + 1).Merge
            Cells(j, 7).Value = sm
        End If
    Next i
    .ScreenUpdating = True: .DisplayAlerts = True
End With
End Sub