Want to Join the Values in the Multiple rows inexcel with Delimieter (For Eg 11111 or 11112 or 11113 or 11114 or 11115)

See more:

VB

VBA

I have the Code implemented to the return the value like (11111 or 11112 or 11113 or 11114 or 11115). But failed always returning only ( 11114 or 11115). How to resolve it. Please help me.

Private Sub CommandButton1_Click()
RowCount = ActiveWorkbook.Worksheets("Sheet1").Range("A2", Worksheets("Sheet1").Range("A2").End(xlDown)).Rows.Count
ColomCount = ActiveWorkbook.Worksheets("Sheet1").Range("A2", Worksheets("Sheet1").Range("A2").End(xlDown)).Columns.Count
For i = 2 To RowCount
For j = 1 To ColomCount
'MsgBox (RowCount)
'MsgBox (ColomCount)
'If Not Sheet1.Cells(i, j).Value = vbNullString Then
'varConctnt = Sheet1.Cells(i, j).Value & " or " & Sheet1.Cells(i + 1, j).Value
Sheet1.Cells(2, 2) = Sheet1.Cells(i, j).Value & " or " & Sheet1.Cells(i + 1, j).Value
'End If
Next j
'If varConctnt = vbNullString Then MsgBox "Empty Array": 'GoTo skip1
'Sheet1.Cells(2, 2) = varConctnt
'varConctnt = ""
'skip1:
Next i
End Sub