Replica Dynamic Named Range Using a Macro

Hi Wayne,
i think i have sorted it.
i have updated the workbook with this code

Sub UpdateRanges()

Dim Task1Address, Task2Address, Task3Address, Task4Address As String
'Delete old data
Sheets("Dataset").Range("A2:K1000").ClearContents
'Delete existing Dataset range names
With ActiveWorkbook
    .Names("Task_Data1").Delete
    .Names("Task_Data2").Delete
    .Names("Task_Data3").Delete
    .Names("Task_Data4").Delete
End With
'Get Entry Range Name range address
Task1Address = Range("Tasks1").Address
Task2Address = Range("Tasks2").Address
Task3Address = Range("Tasks3").Address
Task4Address = Range("Tasks4").Address
'Add new range names for dataset
With ActiveWorkbook.Names
    .Add "Task_Data1", RefersTo:="=Dataset!" & Task1Address
    .Add "Task_Data2", RefersTo:="=Dataset!" & Task2Address
    .Add "Task_Data3", RefersTo:="=Dataset!" & Task3Address
    .Add "Task_Data4", RefersTo:="=Dataset!" & Task4Address
End With
'copy ranges from Entry to dataset
Range("Tasks1").Copy Range("Task_Data1")
Range("Tasks2").Copy Range("Task_Data2")
Range("Tasks3").Copy Range("Task_Data3")
Range("Tasks4").Copy Range("Task_Data4")
End Sub

this should do what you want.