Excel Макросы: Вывод просрочек даты

[Макросов]

Доброго времени!
Из листов "август" - "июль" выводится те мероприятия, у которых дата брони превысила 20 дней.

Проблема в том, что:
1) не все месяцы работают (не выводятся данные из месяцев, например из месяца "февраль" и "март");
2) выводятся несколько дублей мероприятий с просрочками (например, из месяца "январь").

Помоги решить данную дилемму!
Заранее спасибо.

[вложение удалено администратором]

[Администратор]

Первая ошибка, которую я увидел. В этой строке:
For J = 1 To UBound(arrSh, 1) Step 4

макрос двигается по строкам так: сначала макрос просматривает первую строку, затем 5, затем 9 и так далее. Для этого на всех листах в группе должно быть одинаковое кол-во строк (четыре строки).
А в феврале у первой группы две строки (3,4), в январе у второй группы три строки (5-7).

[Макросов]

Должен же по ячейкам двигаться с третий строки ячейки С3, далее G3, потом K3,O3,S3 и так до Z (.Range("C3:Z") затем переходит на строку ниже 

[Администратор]

Это
For J = 1 To UBound(arrSh, 1) Step 4

движение по строкам со строки 3 (на эксель-листе), затем 7 (3+4), затем 11 (7+4) и т.д.
Step 4 прибавляет к переменной "J" число 4.

В массив "arrSh" данные взяты из эксель-листа со строки 3 и до последней строки, в которой есть данные в столбце "A".