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
Bookmarks