VBA delete entire row with number (variable of For loop)

Question

I\'m struggling with a very basic issue:

Public Sub Optionfilter()
\'Dim c As Range
Dim StrikeD As Date
Dim RefD As Date
Dim StrikeP As Integer
Dim S As Range
Di