Как вывести всю строку(столбец) в массиве

Sub mtx3()
Dim arr, c
arr = [a1].CurrentRegion
c = arr(1)
End Sub

Sub mtx3()
Dim arr(), c&, mRNg As Range
   Set mRNg = [a1].CurrentRegion
   c = 2: arr = mRNg.Rows(c).Value ' arr=mrng.Colums(c)
   Cells(Rows.Count, "a").End(xlUp).Offset(3, 0).Resize(1, UBound(arr, 2)).Value = arr
End Sub

c = [a1].CurrentRegion.columns(1).value

Sub mtx3()
Dim arr, c, i&
arr = [a1].CurrentRegion
ReDim c(LBound(arr, 1) To UBound(arr, 1))
For i = LBound(arr, 1) To UBound(arr, 1)
c(i) = arr(i, 1)
Next i
End Sub

Sub mtx3()
    Dim arr, c
    arr = [a1].CurrentRegion
    c = Application.Index(Application.Transpose(arr), 1, 0)
End Sub

dim arr(), tmpARR(), i&, j&
   arr = [a1].CurrentRegion.value
   c=2
   Redim tmparr(1 to ubound(arr,2)
      for i=1 to ubound(arr,2)
         tpmarr(i)=arr(2,i)
      next 'i 
   Cells(Rows.Count, "a").End(xlUp).Offset(3, 0).Resize(1, UBound(tmparr)).Value = tmparr
End Sub