Transferring one-dimensional arrays with build-in function
Sub trans() range("A1:A3").value = Application.WorksheetFunction.Transpose(range("A1:C1")) End Sub