William,

Thanks so much for the reply. The code worked alright except for a
minor snag (inserting an extra blank line, which I managed to work
around it).

Have a great summer

JP


On Tue, 1 Jun 2004 03:55:43 +0100, "William"
wrote:

Hi JP

Sub test()
Dim r As Range, i As Long
With Sheets("Sheet1")
Set r = .Range(.Range("A2"), _
.Range("A" & Rows.Count).End(xlUp).Offset(0, 5))
i = r.Rows.Count
End With
With Sheets("Sheet2")
.Range("A2:F" & i).Insert Shift:=xlDown
.Range("A2:F" & i).Formula = r.Value2
End With
End Sub