Mehrere Zellen eine Zeile nach oben kopieren per Abfrage

Sub Makro6()

    

    Application.ScreenUpdating = False

    Application.CutCopyMode = False

    Dim wks As Worksheet

    Set wks = Tabelle1   ' CodeName! der Tabelle

    Dim x As Long

    Dim y As Long

    y = x + 1

    For x = Cells(Rows.Count, 6).End(xlUp).Row To 2 Step -1

    If Cells(x, 6) = "XXX" Then

    wks.Range(wks.Cells(x, 8), wks.Cells(x, 17)).Value = wks.Range(wks.Cells(y, 8), wks.Cells(y, 17)).Value

    Next x

    Application.ScreenUpdating = True

End Sub