Макрос для объединения ячеек Excel

[Vadim Lisovec]

Помогите нужен макрос срочно Вот нужно что бы он так делал
Заранее ОГРОМНОЕ СПАСИБО

[Vadim Lisovec]

Помогите нужен макрос СРОЧНО что бы так делал

[Jystas]

Сообщение от IgorGO

Sub Merge4()
  For r = ActiveCell.Row To ActiveCell.End(xlDown).Row
    Cells(r, 1) = Cells(r, 1) & Cells(r, 2) & Cells(r, 3) & Cells(r, 4)
    Range(Cells(r, 2), Cells(r, 4)).ClearContents
    Range(Cells(r, 1), Cells(r, 4)).Merge
  Next
End Sub

от строки с активной ячейкой до конца списка данные с ячеек В,С,Д приоединяются к А.

а если эти ячейки на другом листе?? а данные нужны не в соседней ячейке, а скажем на лист 22 ячейка D16