用宏VBA转换excel中的n列

问候语 我不熟悉VBA和excel。我需要使用宏将N列从一张工作表转换到另一张工作表。PS我需要一个不使用excel中预定义的复制粘贴转换的宏，谢谢您的帮助

Sub Transpose_Data_From_Vertical_To_Horizontal()
Dim ws          As Worksheet
Dim sh          As Worksheet
Dim arr         As Variant

Set ws = ThisWorkbook.Worksheets("Sheet1")
Set sh = ThisWorkbook.Worksheets("Sheet2")
arr = Application.Transpose(ws.Range("N1:N" & ws.Cells(Rows.Count, 
14).End(xlUp).Row).Value)

sh.Range("A1").Resize(, UBound(arr)).Value = arr
End Sub