Block if without end if?

Sub weekly_reset()

If Range("a22") = 0 Then
    Range("a22") = Range("M14")

If Range("b22") = 0 Then
    Range("b22") = Range("M14")
    
If Range("c22") = 0 Then
    Range("c22") = Range("M14")

If Range("d22") = 0 Then
    Range("d22") = Range("M14")

Else: Dim Msg As String, Ans As Variant

    Msg = "Four weeks have passed. Do you want to reset the weekly log and start a new month?"

    Ans = MsgBox(Msg, vbYesNo)

    Select Case Ans

        Case vbYes
    
        Range("A22:d22").ClearContents
        Range("a22") = Range("M14")
        
        Case vbNo
        GoTo Quit:
    End Select
    
End If

Range("M14").ClearContents

End Sub

Why does this keep telling me "block if without end if" when there clearly is an "end if"

excel 2010 btw

thanks