Søge efter samme streng flere gange i en kolonne

Sub Demo()
    'Ændre disse værider så de passer til dit formål
    Const sVALUE_TO_FIND As String = "10-10"
    Const sSHEET_FROM As String = "Sheet1"
    Const lFIRST_ROW As Long = 1
    Const sFROM_COLUMN_A As String = "A"
    Const sFROM_COLUMN_B As String = "B"
    Const sSHEET_TO As String = "Sheet2"
    Const sTO_COLUMN_A As String = "A"
   
    Dim lRow As Long
    Dim wsFrom As Worksheet
    Dim wsTo As Worksheet
   
    Set wsFrom = Worksheets(sSHEET_FROM)
    Set wsTo = Worksheets(sSHEET_TO)
   
    For lRow = 1 To wsFrom.Range(sFROM_COLUMN_A & "65000").End(xlUp).Row
        If wsFrom.Range(sFROM_COLUMN_A & CStr(lRow)).Value = sVALUE_TO_FIND Then
            With wsTo.Range(sTO_COLUMN_A & "65000").End(xlUp)
                .Offset(1, 0).Value = wsFrom.Range(sFROM_COLUMN_A & CStr(lRow)).Value
                .Offset(1, 1).Value = wsFrom.Range(sFROM_COLUMN_B & CStr(lRow)).Value
            End With
        End If
    Next
End Sub

Prøv at kikke på Data > Filter > Avanceret Filter
den kan gøre det