Rick,

If I understand what you are trying to do correctly, try this:

Cells(SheetEnd - 1, 1).EntireRow.Copy
Range(Cells(SheetEnd, 1), Cells(SheetEnd + 4, 1)).Insert Shift:=xlDown
Application.CutCopyMode = False

If the macro copies the wrong row or inserts in the wrong place, play with
the row part of the Cells(.... object.

HTH,
Matthew Pfluger

Thanks it works ok, except for I want to copy only formula's, how do I alter
your suggestion.

Mathew:
   Also the statement  
Range(Cells(SheetEnd, 1), Cells(SheetEnd + 4, 1)).Insert Shift:=xlDown
causes the code to jump out of the current module to the sheet number vba code

Rick, see if you can work with this:

Sub rsz()
 Dim lstRw As Long
 lstRw = Cells(Rows.Count, 1).End(xlUp).Row
 For i = lstRw To 1 Step -1
   Cells(i, 1).EntireRow.Copy
   Range(Cells(i + 1, 1), Cells(i + 5, 1)).EntireRow.PasteSpecial
Paste:=xlPasteFormulas
     If Cells(i, 1).Row <> 1 Then
       Cells(i, 1).Resize(5, 4).EntireRow.Insert
     End If
 Next
 Application.CutCopyMode = False
End Sub

Be careful of the word wrap on one of those lines.

Gentlemen:
    After many tries and re-tries, here is the answer to the querry:
 
Dim Cnt As Integer
   On Error GoTo ErrInsRow
   Cnt = 5
   Do Until Cnt = 0
      Range("A" & SheetEnd).Select
      Selection.EntireRow.Insert
      ActiveCell.Offset(-1, 0).Activate
      ActiveCell.EntireRow.Copy
      ActiveCell.Offset(1, 0).Activate
      Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:= _
          False, Transpose:=False
      Application.CutCopyMode = False
      Cnt = Cnt - 1
   Loop