VBA code for naming ranges

Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are demonstrated, mock them up manually if needed. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

You need column headers to get this to work, look at the example attached.

1st look at the named ranges before you run the code.
2nd hit Alt&F8 and then run Macro1
Look at the named ranges after the code has run, you will see that the named ranges are the column headers.

Sub Macro1()
    Dim Rws As Long, Rng As Range


    Rws = Cells(Rows.Count, "G").End(xlUp).Row

    Set Rng = Range(Cells(1, 7), Cells(Rws, 110)) 'Starts from G1 to last cell in Column DF according to your example

    Rng.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
                    False
End Sub

Cells(1,7) mean G1(row 1, column 7)
Cells(Rws,110) means last row in column DF(rws-last row, column 110)