Excel VisualBasic Script

Sub trans()
    range("A1:A3").value = Application.WorksheetFunction.Transpose(range("A1:C1"))
End Sub