Удаление столбцов со сдвигом влево и срок со сдвигом вверх - VBA

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

Добрый день! Имеется excel файл который необходимо привести к определённому формату, что необходимо сделать: 1. Удалить столбцы: A, B, C, E, F, G, I, J, K, L, N, O, P, Q, R, S, T, U, V, W, X со сдвигом содержимого столбцов влево; 2. Удалить строки: 1-3 со сдвигом всего содержимого всех строк вверх. Напишите пожалуйста макрос который будет выполнять операции напечатанные выше. Пример структуры файла во вложении: 1.

Cстраница "Исходник"

- страница содержащая исходную информацию; 2.

Страница "Необходимый результат"

- страница содержащая информацию к которой приводит вычисление макроса.

Решение задачи: «Удаление столбцов со сдвигом влево и срок со сдвигом вверх»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Удаление_выборочное()
    Dim i&, A
    A = Split("A,B,C,E,F,G,I,J,K,L,N,O,P,Q,R,S,T,U,V,W,X", ",")
    For i = UBound(A) To 0 Step -1
        Columns(A(i)).Delete
    Next i
    Rows("1:3").Delete
End Sub