Че то хрень какая то присоединилась. Сюда скопирую надеюсь поймете.  
 
1 й  
2 ц  
3 у  
4 к  
5 е  
6 н  
7 г  
 
в общем  строки 3, 4 надо скопировать в строки 1, 2. и так на всю таблицу  
 
1 й 3 у  
2 ц 4 к  
 
 
5 е 7 г  
6 н 8 ш

Вот приложил файл. Слева колонка как есть, справа как надо. Таблица очень огромная кроме как с макросами спастись не знаю.  
 
Огромнейшее спасибо за помощь.

Помогите пожалуйста. Необходимо вырезать две ячейки и вставить их в ячейки правее верхней строки. макрос получился вот такой, но не знаю как сделать применение макроса ко всей таблице. Подскажите чего не хватает.  
 
Range("N31:O31").Select  
   Selection.Cut  
   Range("P30").Select  
   ActiveSheet.Paste  
   Range("N33:O33").Select  
   Selection.Cut  
   Range("P32").Select  
   ActiveSheet.Paste  
End Sub