Datumformatierung geht zb. so Format(Date, "ddd dd.MM.YYYY")   'date ist beispilehaft der aktuelle Tag

deine Schleife habe ich dir etwas vereinfacht. Du solltest prüfen ob ein Blatt mit dem Namen bereits existiert. Es könnte ja sein das du das Makro ein zweites Mal laufen läßt, dann läuft es auf einen Fehler weil es keine 2 Sheets mit dem selben Namen geben kann. 

For i = 1 To Tage
     lday = Weekday(Sheets(i).Range("A1"), 2)
     Select Case lday
      Case Is <= 5
         'hier prüfen oder Fehlerbehandlung einfügen
         Sheets(i).Copy after:=Sheets(i) 
         Sheets(i + 1).Range("A1") = Sheets(i).Range("A1") + IIf(lday = 5, 3, 1)
         Sheets(i + 1).Name = Sheets(i + 1).Range("A1")
   End Select
Next