Sub transposearray()

Dim letters As Variant
Dim sht As Workbook
Set sht = Workbooks("report 7-16.xlsx")

letters = Array("a", "b", "c", "d", "e", "f")

    sht.Range("AB1:AB6").Value = WorksheetFunction.Transpose(letters)


End Sub