merge cells using vba

Hi excel guru,

I want to merge cells using vba.The below code working fine for product more than one but when there is only one product then below macro is not working.

Please find the attached sample file.

Please help me to solve this issue.

Regards

Upa

Sub Merge()
Dim lastRow As Long
    
    lastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Select
    ActiveCell.Offset(0, 1).Select
    Range(Selection, Selection.End(xlUp)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        End With
        Selection.Merge
        With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
End Sub