Sub объединение()
'
' объединение Макрос
'

'
    Union(Range( _
        "AG19:AG20,A19:A20,B19:B20,C19:C20,D19:D20,E19:E20,F19:F20,G19:G20,H19:H20,I19:I20,J19:J20,K19:K20,L19:L20,M19:M20,N19:N20,O19:O20,P19:P20,Q19:Q20,R19:R20,S19:S20,T19:T20,U19:U20,V19:V20,W19:W20,X19:X20,Y19:Y20,Z19:Z20,AA19:AA20,AB19:AB20,AC19:AC20,AD19:AD20" _
        ), Range("AF19:AF20")).Select
    Range("AG19").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("AH19").Select
    Selection.Cut
    Range("AH20").Select
    ActiveSheet.Paste
End Sub