Add Columns & Name As Heading

In a gradebook spreadsheet, there is code to add new columns to right of existing columns. Each new column should be included or appended to a particular Named Ranges--named with the same name as the column's heading. Here is existing

Sub mcrNotes()

' This adds a column for student notes, such as daily progress notes.
' The heading for the notes column is "Notes"
' The pre-formatted columns are being copied from a sheet named "Fields".
' The columns are inserted into a sheet named "Grades".after the last data column.
Sheets("Fields").Select
Dim Ndate As Range
Set Ndate = ActiveSheet.Range("E11")
Ndate.Value = Date
Columns("E:E").Select
Selection.Copy
Sheets("Grades").Select
lastcolumn = ActiveSheet.Cells. Find(what:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column.......