Специальная вставка "Вставить связь" - VBA

Формулировка задачи:

Здравствуйте! Имеется макрос который копирует по условию ячейки с активного листа на "Свод":

Sub КопироватьСтроку()
Dim б
Dim в
б = Sheets("Свод").Range("D1").Value
в = Sheets("Свод").Range("D3").Value
For а = 1 To 7000 Step 1
If ActiveSheet.Cells(б + а, 4) = 1 Then Range(ActiveSheet.Cells(б + а, 4), ActiveSheet.Cells(б + а, в)).Copy Sheets("Свод").Cells(Rows.Count, 4).End(xlUp).Offset(1)
If ActiveSheet.Cells(б + а, 4) = 0 Then Exit For
Next а
End Sub

Подскажите как сделать чтобы он не копировал все данные и настройки диапазона ячеек, а вставлял ссылки на ячейки этого диапазона (аналогично "Специальная вставка" => "Вставить связь")?

Решение задачи: «Специальная вставка "Вставить связь"»

textual
                            Листинг программы 
                        

                            c = в - 3 'в - 4 + 1
r = Worksheets("Свод").Cells(Rows.Count, 4).End(xlUp)(2).Row
 
For а = 1 To 7000
    If Cells(б + а, 4) = 1 Then
       Worksheets("Свод").Cells(r, 4).Resize(, c) = "=" & Cells(б + а, 4).Address(False, False, , True)
       r = r + 1
       ...
                        