Помогите в упрощении кода - VB

Формулировка задачи:

На работе дали задание - объединить несколько скриптов в один и упростить полученное. Скрипты рабочие, проверяют несколько листов на наличие нужных данных, и выводят их в на листы 9 (ПНОС ДЕБЛОКИР) и 10 (ПНОС КОНТУРА). Часть я уже объединил без проблем, т.к. очень схожие. Сейчас надо понять как их упрощать, потому что есть еще несколько, которые надо дописать в скрипт. Проблема в упрощении. И да, я не гуру VB, и надеюсь на максимально простые ответы, а можно и с примерами даже))
Вот собственно сам скрипт:

Решение задачи: «Помогите в упрощении кода»

textual
                            Листинг программы 
                        
                            Application.ScreenUpdating = False