VBA удалить всю строку с номером (переменная For l oop)

Question

Я борюсь с очень простой c проблемой:

Public Sub Optionfilter()
'Dim c As Range
Dim StrikeD As Date
Dim RefD As Date
Dim StrikeP As Integer
Dim S As Range
Dim R As Range
Dim XVAR As Integer
Dim Intervall As String
Dim Number As Integer
Dim TotalRow As Integer
Dim L As Integer
For Each S In ThisWorkbook.Worksheets("Data").Range("J6:J" & ThisWorkbook.Worksheets("Data").UsedRange.SpecialCells(xlCellTypeLastCell).Row)
If ThisWorkbook.Worksheets("Data").UsedRange.Cells(S.Row, S.Column + 1).Value > XVAR Then
        Debug.Print S.Row
        L = S.Row
        **ThisWorkbook.Worksheets("Data").Rows(L).Delete
        ThisWorkbook.Worksheets("Data").Rows("S.Row").Delete
        ThisWorkbook.Worksheets("Data").Range(S, 1).EntireRow.Delete**
else
end if
next S
end sub

Я просто хочу удалить всю строку с номером, следующим за l oop (s.row) в зависимости в верхнем состоянии и все отлично работает, кроме фактического удаления этой строки