Option Explicit

Sub LinkArrayToRowVector()
'' Convert a row vector to array
'' by constructing cell formulae
Dim wsS As Worksheet
Dim wsT As Worksheet
Dim InLength As Long
Dim i As Long, j As Long, counter As Long
Dim colT As Long
    Set wsS = Worksheets("Sheet2")  '' Source (with data in row 1)
    Set wsT = Worksheets("Sheet1")  '' Target
    colT = 4                        '' Number of columns in target
    InLength = wsS.Range("A1").CurrentRegion.Columns.Count
        For i = 1 To InLength / colT
            For j = 1 To colT
                counter = counter + 1
                wsT.Cells(i, j).FormulaR1C1 = "=" & wsS.Name & "!r1" & "c" & counter
            Next j
        Next i
End Sub