Excel Vba End If Without Block If