Mike,

Here is a macro that should do the job for you.

Good Luck.

***********************************

Option Explicit

Sub InsertRows_n_CopyCell()

'Select the starting row ...
'this example assumes it is cell A7
 Range("A7").Select

'Start a Looping procedure
 Do While ActiveCell.Value > " "

'Move down 20 rows
 ActiveCell.Offset(20).Select

'Insert 2 rows by
'Selecting the current row and
'the row below the current row
 Range(ActiveCell, ActiveCell.Offset(1)).Select
 Selection.EntireRow.Insert , _
   CopyOrigin:=xlFormatFromLeftOrAbove

'Copy the data that is now down 2 rows
'into the Active Cell
 ActiveCell.Value = ActiveCell.Offset(2).Value

'Move the active cell down 2 rows
 ActiveCell.Offset(2).Select

Loop

End Sub