Code verbessern, Ablauf beschleunigen möglich?

      
Sub WE_loeschen()
   PW_entf                                             'Paßwort löschen
   Dim iIndxA  As Long
   Dim iIndxI  As Integer
   Application.ScreenUpdating = False                  ' kein Bildschirm Update
   For iIndxA = 1 To Range("A65536").End(xlUp).Row     ' von 1 bis Ende
      If Weekday(Range("B" & iIndxA).Value) = 1 Or _
         Weekday(Range("B" & iIndxA).Value) = 7 Then   ' Sonnabend/Sonntag ?
         For iIndxI = 3 To 256
            Cells(iIndxA, iIndxI).Value = ""           ' auf leer löschen
         Next iIndxI
      End If
   Next iIndxA                                         ' nächster Eintrag
   Application.ScreenUpdating = True                   ' Bildschirm Update
   PW_setzen                                           'Paßwort setzen
End Sub 
Mein Dienstplan sieht folgendermaßen aus:

Also immer beginnend mit D2 und Endend je nach dem mit V457 oder
ein Paar Spalten später. Das richtet sich nach der letzten be-
füllten Spalte in Zeile 1 (wobei nicht jede Zelle in Zeile 1 be-
schrieben sein muss). Wie kann ich also schneller kontrollieren,
ob die Eingabe an einem Wochenende erfolgte oder nicht? Geht
das überhaupt, den Code so umzugestalten, dass die Kontrolle ganz
schnell abläuft?
Wäre schön, wenn jemand eine Idee hat.
Gruß
Andy