How to transpose rows into columns in excel using numeric columns? In VBA

I want to transpose an array, i.e, transpose rows in columns in excel by VBA. But I have to insert the columns of the Range numerically.

So, I was trying the following code, but It didn't work:

Sub Transpose_Array()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet5")
    ws1.Range(ws1.Cells(1, 1), ws1.Cells(2, 5)).Select = WorksheetFunction.Transpose(ws2.Range(ws2.Cells(1, 1), ws2.Cells(5, 2)))
End Sub

EDIT:

I tried this but it also didn't work:

Sub teste()
    Dim ws1 As Worksheet 
    Dim ws2 As Worksheet
    Set ws1 = ThisWorkbook.Worksheets("Have")
    Set ws2 = ThisWorkbook.Worksheets("Want")
    ws1.Range(ws1.Cells(1, 1), ws1.Cells(2, 5)).Select = WorksheetFunction.Transpose(ws2.Range(ws2.Cells(1, 1), ws2.Cells(5, 2)))
End Sub

I don't understand why it doesn't work.