Процедура (макрос) начинается со строки
Sub ... ()
и заканчивается строкой
End Sub
В показанном фрагменте две строки с Sub. Такого быть не может.
Sub ... ()
и заканчивается строкой
End Sub
В показанном фрагменте две строки с Sub. Такого быть не может.