Sub Macro1()
Application.ScreenUpdating = False
For i = 0 To 799
Rows((29 * i) + 1 * 14).RowHeight = 154.5
Rows((29 * i) + 1 * 29).RowHeight = 25.5
With Range("B" & (29 * i) + 1 * 14 & ":G" & (29 * i) + 1 * 14)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.MergeCells = True
End With
With Range("B" & (29 * i) + 1 * 29 & ":G" & (29 * i) + 1 * 29)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.MergeCells = True
End With
Next i
End Sub