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