You can use a worksheetfunction.weeknumber formula with do until loop/For loop

ex:
sub delet_code()

range("f11").select
do until activecell.value=""

if worksheetfunction.weeknumber(activecell.value)<worksheetfunction.weeknumber (Date) then
activecell.entirerow.delete
else
activecell.offset(1,0).select
endif

loop

End sub