Здравствуйте, уважаемые форумчане!  
Зациклился в одном вопросе..  
Есть код    
Sub MODТекстНадписи()  
Dim i As Integer, j As Integer, k As Integer  
arr1 = Array(1, 2, 5, 3, 2)  
arr2 = Array("Изм", "Лист", "№ докум.", "Подп.", "Дата")  
k = 0  
r = 0  
j = 0  
For i = LBound(arr1) To UBound(arr1)  
   Cells(61, 2 + r).Resize(, arr1(i)).Select  
   With Selection  
       .HorizontalAlignment = xlCenter  
       .VerticalAlignment = xlCenter  
       .MergeCells = True  
       .FormulaR1C1 = arr2(i)  
   End With  
   With Selection.Font  
       .Name = "Times New Roman"  
       .FontStyle = "обычный"  
       .Size = 9  
       .ColorIndex = xlAutomatic  
   End With  
   r = r + arr1(i)  
Next i  
End Sub  
который меня устраивает, а вот тепер хочу организовать смещение по строкам вниз в следующем коде  
Sub MODТекстНадписи0()  
Dim i As Integer, j As Integer  
arr1 = Array(1, 2, 5, 3, 2)  
r = 0  
For j = 0 To 2 Step 1  
For i = LBound(arr1) To UBound(arr1)  
   Cells(59 + j, 2 + r).Resize(, arr1(i)).Select  
   With Selection  
       .HorizontalAlignment = xlCenter  
       .VerticalAlignment = xlCenter  
       .MergeCells = True  
       .FormulaR1C1 = ""  
   End With  
   With Selection.Font  
       .Name = "Times New Roman"  
       .FontStyle = "обычный"  
       .Size = 9  
       .ColorIndex = xlAutomatic  
   End With  
   r = r + arr1(i)  
Next i  
Next j  
End Sub  
и работает у меня неправильно.