1. Sub main()
    3. Application.DisplayAlerts = False
    5. Dim i, j, k
    6. For i = 1 To 9999
    7.     If Cells(i + 1, 1) = Cells(i, 1) Then
    8.         For j = 2 To 999
    9.             If Cells(i + j, 1) <> Cells(i, 1) Then
    10.                 For k = 1 To 4
    12.                     Range(Cells(i, k), Cells(i + j - 1, k)).Select
    13.                     With Selection
    14.                         .HorizontalAlignment = xlCenter
    15.                         .VerticalAlignment = xlCenter
    16.                         .WrapText = False
    17.                         .Orientation = 0
    18.                         .AddIndent = False
    19.                         .IndentLevel = 0
    20.                         .ShrinkToFit = False
    21.                         .ReadingOrder = xlContext
    22.                         .MergeCells = False
    23.                     End With
    24.                     Selection.Merge
    25.                 Next k
    26.                 Exit For
    27.             End If
    28.         Next j
    29.     End If
    30. Next i
    32. Application.DisplayAlerts = True