Trying to copy data from sheet1 vertical to sheet3 horizontally

Hello i am trying to copy the data in a named range that is vertically entered so Sheet1 "F10" has the 1st piece of data Sheet 1 "F11 has the next. Finally ending in Sheet1 "g17" then some more data in J10 to K15 i have named these CustomerData for (F10 to G17) and ProductData for (J10 to K15) and Fault Found (N10) all this data to be pasted into sheet("Data")

I have in sheet3 or Sheets"Data" the same information but stored horizontally

I have tried a few different ways of coding this with various errors

Sub GetData()
    With Sheets("Data")
        Sheet1.Range("CustomerData, ProductData, FaultReported").Copy
        .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row).PasteSpecial xlPasteAll, , , True
        Application.CutCopyMode = False
    End With
End Sub

And tried

Sub GetData()
    With Sheets("Sheet1")
        Sheet1.Range("CustomerData, ProductData, FaultReported").Copy
        Sheets("Data").Range("A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row).PasteSpecial xlPasteAll, , , True
        Application.CutCopyMode = False
    End With
End Sub

Error is Method 'range' of object '_Worksheet' failed

Thank you for your help

tried below but same error

Sub GetData()
    
   Worksheets("Sheet1").Range("CustomerData, ProductData, FaultReported").Copy
   Worksheets("Data").Range("AllData").PasteSpecial Transpose:=True
   
End Sub

I noticed that with this method when we paste it will still put the blank rows in-between?

Will have to ponder that 1 as when multiple results on sheet2 you would them together.

1-123
1-235

not
1-123

1-235

As it goes throught the data to paste on the next available line in sheet 2 not have the space between the rows pasted as well.

You have given me lots to ponder on