How about using this macro?
<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">Sub VenA()
Dim r As Range, cl As Range
For Each cl In Columns(1).SpecialCells(2, 1)
If Weekday(cl, 2) > 5 Then
If r Is Nothing Then Set r = cl Else Set r = Union(r, cl)
End If
Next cl
If Not r Is Nothing Then r.EntireRow.Delete
End Sub</code>