Kalender

Hej jeg har bikset et stykke kode sammen som næsten gør hvad jeg ønsker, men får fejl 400 og ikke det helt korrekte resultat.

Koden ser således ud

Sub Opdatere_kalender()
'Creates a calender from week input with week numbers and week input
Application.ScreenUpdating = False

Range("H6:iv8").ClearContents
Range("H6").Select
For i = Range("c4") To Range("c5") Step 0.5
  ActiveCell.Value = "Dato"
  ActiveCell.Offset(2, 0).Select
  ActiveCell.Value = i
  ActiveCell.Offset(-1, 0).Select
  ActiveCell.FormulaR1C1 = "=WEEKDAY(R[+1]C)"
ActiveCell.Offset(-1, 1).Select
Next i
On Error GoTo week:
week:
Call removeweekend


Application.ScreenUpdating = True

End Sub


Sub removeweekend()
Dim i As Integer

For i = 1 To 400 Step 1
If Cells(7, i) = 1 Then
Range(Cells(5, i), Cells(8, i)).Delete shift:=xlToLeft
End If
If Cells(7, i) = 1 Then
Range(Cells(5, i), Cells(8, i)).Delete shift:=xlToLeft
End If
If Cells(7, i) = 7 Then
Range(Cells(5, i), Cells(8, i)).Delete shift:=xlToLeft
End If
If Cells(7, i) = 7 Then
Range(Cells(5, i), Cells(8, i)).Delete shift:=xlToLeft
End If
Next i

End Sub

Nogen forslag til hvor fejlen ligger ?