Copy Named range to New Row

[AllisterB]

I have a Named range called Data.

The second row of "Data" contains a named Range "BaseRow"

The user to click on the first cell in the last row of "Data".

The user will then run the Macro

The Macro will

Insert a new Row below the active cell.
Copy "BaseRow" and then paste it to the first cell of the new row.

This is what I have so far but it errors.

Sub InsertCopyRow()

'Insert a Row and Copy Named range onto New Row
    
   Selection.Cells(1).Offset(1).EntireRow.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
   Range("BaseRow").Select
  Selection.Copy
   
   Selection.Range.Paste
   Selection.Range.Offset (1)
    Selection.Offset(1).Select
    
End Sub

Any ideas?

Thanks

Allister