group data into groups of 10

Hello jmccarthy0901,

Welcome to the Forum!

Sub GroupBy10()

    Dim Data As Variant
    Dim i As Long
    Dim Rng As Range
    
        Set Rng = Range("A1", Cells(Rows.Count, "A").End(xlUp))
        
        For i = 1 To Rng.Rows.Count Step 10
            Data = Rng.Cells(i, 1).Resize(10, 1).Value
            Data = Application.Transpose(Data)
            Data = Application.Index(Data, 1, 0)
            Rng.Cells(i, 2).Value = Join(Data, ",")
        Next i
        
End Sub

Hello jmccarthy0901,

Here is the amended code...

Sub GroupBy10()

    Dim Data As Variant
    Dim i As Long
    Dim n As Long
    Dim Rng As Range
    
        Set Rng = Range("A1", Cells(Rows.Count, "A").End(xlUp))
        
        For i = 1 To Rng.Rows.Count Step 10
            Data = Rng.Cells(i, 1).Resize(10, 1).Value
            Data = Application.Transpose(Data)
            Data = Application.Index(Data, 1, 0)
            n = n + 1
            Rng.Cells(n, 2).Value = Join(Data, ",")
        Next i
        
End Sub