I have created some code that searches through a column and adds the value of the cell to my table heading in another sheet.

Sub ProbeName()
Dim Str As String
Dim R As Range
Dim Cl As Range
Dim sht1 As Worksheet
Dim Sht3 As Worksheet

Set sht1 = Worksheets(1)
Set Sht3 = Worksheets(3)
Str = 0

With Sht3
 Set R = .Range(.Cells(2, 4), .Cells(.Rows.Count, 4).End(xlUp))
        For Each Cl In R
            If Cl.Value <> "Probe" Then Str = Cl.Value
        Next Cl
End With

With sht1
    .Cells(3, 1) = Str
    
End With
End Sub
Is there a way i can make it so that if more than one type of probe is found it will say all probes.

Apposed to the last one it found in the count as it currently does.