Добавление записей массива из одной книги на лист другой + возможная конкатенация

Dim fio() As String, comp() As String, street() As String, indeks() As String, gorod() As String, strana() As String
Sub test()
 
Workbooks.Open ThisWorkbook.Path & "\tdmassiv.xlsm"
Do Until IsEmpty(Cells(i + 1, 1))
i = i + 1
Loop
ReDim fio(i) As String
 
Do Until IsEmpty(Cells(i + 1, 2))
i = i + 1
Loop
ReDim comp(i) As String
 
Do Until IsEmpty(Cells(i + 1, 3))
i = i + 1
Loop
ReDim street(i) As String
 
Do Until IsEmpty(Cells(i + 1, 4))
i = i + 1
Loop
ReDim indeks(i) As String
 
Do Until IsEmpty(Cells(i + 1, 5))
i = i + 1
Loop
ReDim gorod(i) As String
 
Do Until IsEmpty(Cells(i + 1, 6))
i = i + 1
Loop
ReDim strana(i) As String
 
For k = 1 To i
fio(k) = Cells(k + 1, 1).Value
comp(k) = Cells(k + 1, 2).Value
street(k) = Cells(k + 1, 3).Value
indeks(k) = Cells(k + 1, 4).Value
gorod(k) = Cells(k + 1, 5).Value
strana(k) = Cells(k + 1, 6).Value
Next k
 
Do Until IsEmpty(Cells(n + 1, 1))
n = n + 1
Loop
 
Do Until IsEmpty(Cells(n + 1, 2))
n = n + 1
Loop
 
Do Until IsEmpty(Cells(n + 1, 3))
n = n + 1
Loop
 
Do Until IsEmpty(Cells(n + 1, 4))
n = n + 1
Loop
 
Do Until IsEmpty(Cells(n + 1, 5))
n = n + 1
Loop
 
Do Until IsEmpty(Cells(n + 1, 6))
n = n + 1
Loop
 
Cells(n + 1, 1).Select
Cells(n + 1, 2).Select
Cells(n + 1, 3).Select
Cells(n + 1, 4).Select
Cells(n + 1, 5).Select
Cells(n + 1, 6).Select
 
For j = 1 To i
Cells(n + j, 1) = fio(j)
Cells(n + j, 2) = comp(j)
Cells(n + j, 3) = street(j)
Cells(n + j, 4) = indeks(j)
Cells(n + j, 5) = gorod(j)
Cells(n + j, 6) = strana(j)
Next j
 
Workbooks("td.xlsm").Worksheets("Send").Activate
 
End Sub