Stop søgning i regneark med macro

Hej
Jeg har været på kursus i grundlæggende VBA programmering for et par måneder siden.
Men jeg må erkende at jeg har et problem jeg ikke har kunnet finde en løsning på. Så nu søger jeg assistance her inde. Og jeg har også søgt meget på google, men uden held.

Problemet:
1. Jeg importerer nogle csv filer ind i min workbook.
2. Jeg ønsker herefter at finde nogle bestemte værdier, og kopiere dem til et andet sheet.
Problemet er bare at det varierer hvor værdierne står henne i den importerede csv fil. Så jeg kan altså ikke sætte den op til fast at hente data fra nogle bestemte celler.
Den eneste mulighed jeg har, er at søge (CTRL+F) efter overskriften til den kolonne med data jeg vil importere.
Det er også fint lykkedes mig at lave en sådan makro som finder overskriften, og henter de data som står nedenfor overskriften.
Men problemet består i at den skal gentage denne proces med at søge INDTIL den har fundet alle overskrifterne som passer til søgningen. Den må altså ikke begynde forfra med søgningen. For nogle gange er der 5 overskrifter som passer på søgningen. Andre csv filer har måske kun overskriften 3 gange.

Her er et eksempel på den kode jeg har lavet. Jeg har dog ikke lavet det med at kopiere dataene endnu. Mit problem er sådan set bare det med at få søgningen til at stoppe når den har været hele sheet igennem.

Kode:

'Her er et eksempel hvor jeg har gentaget søgningen 2 gange.

    Cells.Find(What:="RPM_Point?_Value", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    'Her skulle så være den del med at der kopieres over i et andet ark. Det er dog undladt her
    Application.CutCopyMode = False
   
    ActiveCell.Offset(-1, 0).Range("A1").Select
   
    Cells.Find(What:="RPM_Point?_Value", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    'Her skulle så være den del med at der kopieres over i et andet ark. Det er dog undladt her
    Application.CutCopyMode = False