Ok, nachdem ich noch einmal ein wenig geschlafen habe ist mir aufgefallen, dass ich hier keinen Code eingefügt habe, was ich gern noch nachholen würde, da es sonst vermutlich auch schwer wird, mir zu helfen. 

Das hier ist also mein aktueller Stand: 

Sub Range_Copy() 
  Sheets("Tabelle1").Select 
  ' Find the last row of data 
  FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 
  ' Loop through each row 
    For x = 2 To FinalRow 
        ' Decide if to copy based on column A 
        ThisValue = Cells(x, 1).Value 
         
        If ThisValue > "8999" Then 
            Worksheets("Tabelle1").Range("B2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("A2:A3") 
            Worksheets("Tabelle1").Range("E2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("L25") 
            Worksheets("Tabelle1").Range("F2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("B25") 
            Worksheets("Tabelle1").Range("G2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("G25") 
            Worksheets("Tabelle1").Range("H2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("F25") 
            Worksheets("Tabelle1").Range("I2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("H25") 
            Worksheets("Tabelle1").Range("L2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("B18") 
            Worksheets("Tabelle1").Range("M2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("J9") 
            Worksheets("Tabelle1").Range("N2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("B9") 
            Worksheets("Tabelle1").Range("O2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("F9") 
            Worksheets("Tabelle1").Range("P2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("L9") 
            Worksheets("Tabelle1").Range("R2").Copy _ 
            Destination:=Worksheets("PerformanceReport").Range("M9") 
        
        End If 
     
                'Call PDF_per_EMail 
     
    Next x 
End Sub  

Der letzt Call Aufruf ist lediglich zum exportieren und versenden per Mail da und liegt in einem anderen Makro.

Es funktioniert soweit auch "eigentlich", also ich bekomme keine Fehler ausgeworfen, allerdings macht er 5x das selbe. Das macht in diesem Fall ja auch Sinn, weil ich mit festen Zellen arbeite, da kann sich ja auch nichts verändern. 

Wie komme ich aber jetzt da hin, die festen Zellen gegen variable auszutauschen, sodass er nachdem er für Zeile 2 einmal durchgelaufen ist und die Mail versendet hat, mit Zeile 3 beginnt und das Spielchen so lange weiter treibt, bis in Spalte A kein Wert mehr steht, bzw. er kleiner als 8999 ist?

Lg