Option Explicit
Sub Aufraeumen()
Dim i As Long
With ThisWorkbook.Worksheets("Kennzahlen")
For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Not .Cells(i, "A").Value Like "*K*" _
Or .Cells(i, "C").Value Like "*Tagnoo*"
Or .Cells(i, "C").Value Like "*Tdg*" _
Then
.Rows(i).Delete Shift:=xlShiftUp
End If
Next
.Columns("Flotte").Copy
.Columns("C:C").Insert Shift:=xlShiftToRight
Application.CutCopyMode = False
.Columns("nicht abgerechnete Transporte").Delete Shift:=xlToLeft
End With
End Sub