Drop Array Values Across Cells

[Ark68]

I have this code which drops the values of an array into a column. How can I change this so that the values, instead of a column are placed in a row (row 2) starting at AA2?

Sub ExtractNamesToColumn(grp)
    Dim names() As String
    Dim j As Long

    ' Split the string into an array using the comma as a delimiter
    names = Split(grp, ",")
    ' Loop through the array and write the names to the target column
    For j = LBound(names) To UBound(names)
        ' Trim spaces and write each name in column AC starting at AC2
        ws_dump.Cells(j + 3, "AA").Value = Trim(names(j))
    Next j
End Sub

 

[Ark68]

Without testing, I feel this would work?

ws_dump.Cells(2, j + 26).Value = Trim(names(j))

 

[kevin9999]

Untested, but try on a copy of your workbook:

names = Split(grp, ",")
Range("AA2").Resize(1, UBound(names) + 1).Value = names

 

[Peter_SSs]

There should be no need to loop to put the values into a range.
Your original code though allowed for the clean-up of any leading/consecutive internal/trailing spaces with each name. To keep that, I would make this alteration

ws_dump.Range("AA2").Resize(1, UBound(names) + 1).Value = Application.Trim(names)

 

[Ark68]

Thank you @kevin9999 and Peter. Both were solutions. Peter, I appreciate your contribution in ensuring I kept my values clean.

 

[kevin9999]

Glad we could help, and thanks for the feedback

 

[Peter_SSs]

Both were solutions.

Does that mean you definitely won't have any stray spaces? - so the Trim() in your original code wasn't needed either?