Sub Cell_Merge()

'Ãâó:¿¢¼¿ ½Ç¹« ¹ÙÀ̺í(±æ¹þ ÃâÆÇ»ç)

 
    Dim rngAll As Range
    Dim rowsCnt As Long
    Dim r, q As Long
    
    Set rngAll = Range(Selection.End(xlUp), Selection.End(xlDown)).SpecialCells(2)
    With Application
        .ScreenUpdating = False
        q = rngAll.Column

        rowsCnt = rngAll.Rows.Count
        
        For r = rowsCnt To 2 Step -1
            If Cells(r, q) = Cells(r - 1, q) Then
                .DisplayAlerts = False
                Union(Cells(r, q), Cells(r - 1, q)).Merge
                .DisplayAlerts = True
            End If
        Next r
    End With
    
    Range("A1").CurrentRegion.Borders.LineStyle = 1
    Set rngAll = Nothing
End Sub