Solved: Combine data from row to one cell

[parscon]

This will combine all data in row 1 into A1. I need to do this for another rows also (that mean loop), how can I do it ?

[VBA]
Sub Comb()
For x = 2 To 256
If Cells(1, x).Value = "" Then
Else
Cells(1, 1).Value = Cells(1, 1).Value & ", " & Cells(1, x).Value
End If
Next x
End Sub

[/VBA]

[Simon Lloyd]

Use a for loop like[VBA]Sub Comb()
Dim i as long
for i = 1 to Range("B" & Rows.count).end(xlup).row step 1
For x = 2 To 256
If Cells(i, x).Value = "" Then
Else
Cells(i, 1).Value = Cells(i, 1).Value & ", " & Cells(i, x).Value
End If
Next x
Next i
End Sub
[/VBA]

[parscon]

Thank you very much for your big help .