Looping using left function resulting in Concatenate

You Could try this

Sub FindNum()
    Dim LastRow As String
    Dim Cell As Range
        
    LastRow = Range("K" & Rows.Count).End(xlUp).Row
    For Each Cell In ActiveSheet.Range("K6:K" & LastRow)
        If Left(Cell, 3) = "EGL" Then
            Cell = Cell & "&" & Cell.Offset(0, 1)
        End If
    Next

End Sub

Without some data to work with it isn't clear what you expecting as a result

Hope this helps

Remember the Code Tags in Post #1

Originally Posted by Marcol

You Could try this

Sub FindNum()
    Dim LastRow As String
    Dim Cell As Range
        
    LastRow = Range("K" & Rows.Count).End(xlUp).Row
    For Each Cell In ActiveSheet.Range("K6:K" & LastRow)
        If Left(Cell, 3) = "EGL" Then
            Cell = Cell & "&" & Cell.Offset(0, 1)
        End If
    Next

End Sub

Without some data to work with it isn't clear what you expecting as a result

Hope this helps

Remember the Code Tags in Post #1

Thanks a lot for your help on the above, But becuase i didnt explain myself very well this isnt what i was looking for. So for example i have a column that looks like this

DGL2279378
BR2 Rev
DGL2279321
DGL2279327

I need the code to go down that column and concatenate all the ones that begin with DGL - so would have an output as follows

(i need the output in a cell say cell 1 column 1) output = DGL2279378 & DGL2279321 & DGL2279327


Thanks a lot for any help

Jaimie