Transpose macro

Hello. I have the following problem, I have excel file from attachment, where I have only sheet1 with 4 columns and with using a transpose macro I want to built sheet2 which contains 11 columns, entering new data, according sheet 2 from example. Please help me to build this macro.
Thank you.

Sheet2 is in this example. So I would like to be after running a macro. I started to write this macro:

Sub Test()
    Dim Sh As Worksheet
    Dim Rng As Range
    Dim ShNew As Worksheet
    Dim r As Integer
    Dim c As Integer
    Dim x As Integer
    
    Set Sh = Worksheets("sheet1")
    Set Rng = Sh.Range("A1").CurrentRegion
    Set ShNew = Worksheets.Add
    x = 1
    
    ShNew.Cells(x, 1) = "order number"
    ShNew.Cells(x, 2) = "Customer"
    ShNew.Cells(x, 3) = "Date"
    ShNew.Cells(x, 4) = "Pricelist"
    ShNew.Cells(x, 5) = "Ordering Contact"
    ShNew.Cells(x, 6) = "Invoice"
    ShNew.Cells(x, 7) = "Shipping"
    ShNew.Cells(x, 8) = "Description"
    ShNew.Cells(x, 9) = "Product"
    ShNew.Cells(x, 10) = "Qty"
    ShNew.Cells(x, 11) = "Price"

End Sub

I want to obtained sheet2 from sheet1.