Там есть строка if, где проверяется условие. Вторая строка этого условия выглядит так:
And (Right(x, 3) = "чка") Or Right(x, 5) = "енька")
Тут программа проверяет, заканчивается ли слово на "чка" или "енька". Если да, то счётчик увеличивается на 1. Так вот, нам нужно чтоб этот счётчик увеличивался только для "чка". Для этого надо эту строку изменить так:
And (Right(x, 3) = "чка")
- удалить то, что выделено жирным:
And (Right(x, 3) = "чка") Or Right(x, 5) = "енька")
Тогда программа будет считать только те ячейки, где имя оканчивается на "чка"
Во вложении - файл с исправленной программой.
Чтоб запустить программу, нажимаешь Alt+F8, -> в появившемся окошке "Macro" будет выбрано "ЭтаКнига.vasia" -> нажать кнопку Run -> в ячейке А11 появится результат "4" (то есть четыре имени подходят по условиям задачи, а сами имена будут написаны красным шрифтом