that specific date or any date... if its any date then you can loop through
each row and check to see if its a valid date...

sub deleteifnotdate()
dim irow as integer
dim x as integer

irow = range("A65535").end(xlup).row

for x = irow to 1
if not isdate(range("K" & x).value) then
row(x).delete
end if
x = x-1
next x

end sub

should do the trick..

Note: air code  not tested but should work