Hallo zusammen,

Vielen Dank für die Hilfe. Die Kritik wird selbstverständlich auch angenommen. Ich habe es nun auf diesem Wege geregelt

   Sheets("Babe 2.0").Select
    Worksheets("Babe 2.0").Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Worksheets("Babe 2.0").Range("A2").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[20],RC[21])"
    Selection.AutoFill Destination:=Worksheets("Babe 2.0").Range("A2:A1000")
    Worksheets("Babe 2.0").Range("A2:A1000").Select
    Worksheets("Babe 2.0").Columns("A:A").Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16752384
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13561798
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Worksheets("Babe 2.0").Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AL$383").AutoFilter Field:=1, Criteria1:=RGB(198, _
        239, 206), Operator:=xlFilterCellColor
    Worksheets("Babe 2.0").Rows("11:368").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$AL$365").AutoFilter Field:=1
    Worksheets("Babe 2.0").Range("A1").Select
    Selection.AutoFilter
    Worksheets("Babe 2.0").Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft

Danke noch einmal.
Das Thema kann als erledigt angesehen werden. Im Crossposting werde ich ebenfals (copy&paste) antworten.

Liebe Grüße noch