ActiveWorkbook.Worksheets.Add.Name = "NewSheet"
Sheets("NewSheet").Move After:=Sheets(ActiveWorkbook.Worksheets.Count)


'Copy and paste
Sheets("Parameters").Activate
Range("D4:F7").Select
Selection.Copy

Sheets("NewSheet").Activate
Cells(1, 1).Select
do until activecell = ""
activecell.offset(1,0).select
loop
ActiveSheet.Paste


That should work I think .... let me know.

Chris

On Mar 10, 10:35*am, Robert wrote:
The date would be in sheet: Parameters, Cell:D4
HTH