Макрос для объединения ячеек с нулями SOS!!!

[DJTreeno]

kuklp, спасибо тоже за помощь, приятно знать где ошибался!!!

[Hugo121]

Похоже, Ваш простой код можно упростить:

Sub Добавить_Строку2()
'
' Добавление строки
'

lRow = Selection.Row
Range("Q" & lRow).EntireRow.Insert

Range("Q" & lRow - 1).Copy Range("Q" & lRow)
Range("S" & lRow - 1).Copy Range("S" & lRow)
Range("U" & lRow - 1).Copy Range("U" & lRow)
Range("X" & lRow - 1).Copy Range("X" & lRow)

Application.CutCopyMode = False

End Sub

[DJTreeno]

Ух ты!!! Спасибо!!!