Вставить содержимое диапазона в 1 ячейку - Excel VBA

Question

Я пытаюсь скопировать содержимое диапазона, начиная с ячейки A2, а затем вставить содержимое в ячейку E7.

Код, который был написан здесь, работал для меня, когда мои диапазоны были около 100 строк, но когда я пробовал его с большим диапазоном (200 строк), он вставлял только около 70% содержимого.

Есть ли способ исправить это, чтобы он работал каждый раз?

Sub Copy_Paste()
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Dim rng As Range
Dim i As String
For Each rng In Selection
i = i & rng & " "
Next rng
Range("E7").Value = Trim(i)

Answer 1

Соединение этих двух предложений

Sub Copy_Paste()

Dim rng As Range
Dim i As String
For Each rng In range(Range("A2"),Range("A" & activesheet.rows.count).end(xlup))
    i = i & rng.text & " "
Next rng
if len(i)>32387 then msgbox "Too Long" 'test if too long
Range("E7").Value = Trim(i)
End Sub