🚀 go-pugleaf

Tak w ramach ciekawości zrobiłem sobie takie zadanie na arkuszu Excela. Na 
Wordzie też powinno działać, po zmianie indeksów komórek (wiersz, kolumna). 
Działa to tak jak opisałeś. Na początku makro tworzy "n" komórek, a potem 
przenosi i kasuje wiersze:
-------------------------------------------------------------
Sub komorki()
  Dim a, i, n As Integer
  i = 1
  a = 1
  n = 20
  For i = 1 To n Step 1
    Cells(i, 1).Value = a
    a = a + 1
  Next i
  For i = 1 To n Step 2
    Cells(i, 1).Interior.ColorIndex = 4
  Next i
  i = 2
  For i = 2 To n Step 2
    Cells(i, 1).Interior.ColorIndex = 6
  Next i
  For i = 2 To n Step 2
    Cells(i, 1).Select
    Selection.Copy
    Cells(i - 1, 2).Select 'gdzie ma być skopiowane
    ActiveSheet.Paste 'Wklejasz
  Next i
  i = 1
  For i = 1 To n Step 1
    Cells(i, 1).Interior.ColorIndex = 4
    Cells(i, 2).Interior.ColorIndex = 6
  Next i
  For i = 2 To n   'usuwanie pustego wiersza
   If (Cells(i, 2).Value = "") Then
     Rows(i).Delete
   End If
  Next i
End Sub
------------------------------------------------------------

Pozdrawiam
Paweł