Newbie Question: Repeat Operations on Named Ranges - Can I loop this macro for efficiency?

Hi all -

I'm new to the Forum (This is my first post) and a relative beginner to programming in VBA. Please forgive the way I posted my code below, I couldn't figure out how to get it properly indented into the scrolling box (advice on that is also welcome!)

I have a procedure that repeats 18 times based on a series of named ranges, and am trying to figure out how to loop the procedure to work for each range name in sequence and then increment, rather than paste the procedure 18 times (Which is what I have now).

All of the resources I have consulted seem to give examples of looping through either a single range or all ranges on a worksheet. In this case I want to give the names of my ranges at the top of the Sub, then have the VBA code loop through only those ranges and perform the procedure. Is this even possible?

The procedure asks the user how many rows to add to the range (in this case the range is named "_2530_kp1"), then it adds the number of rows selected and re-numbers them for visual clarity (in this case the range the numbers are added into is named "_2530_kps_count".

----------------------------------------------------------------------------------

Private Sub Add_Key_Principals()
    
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '                                                                                               '
    'Adds Key Principals, user selects no. from Msg Box                                             '
    'Asks user whether KP's have been entered, if so it copies them into the 1st range.             '
    '                                      '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       
    'Declares variables, asks User how many Principals to add.
    
    Dim Rng, n As Long, k As Long
    Application.ScreenUpdating = False
    
    Sheets("Checklist").Unprotect Password:="2373"
    'Worksheets("Checklist").Range("_kp1").Value = "Key Principal1"
    
    Rng = InputBox("How many Principals would you like to Add? Additions start at the 3rd Principal.")
    If Rng = "" Then Exit Sub
    
    'Declares variables, asks User how many Principals to add, starts input in Row 3.
    
    Application.Goto Reference:="_2530_kp1"
        
    ActiveCell.Range("A3").Select
 ---------------------------------       
    'Inserts rows based on the 2nd Principal Row, insuring all formulas remain intact
    Range(ActiveCell, ActiveCell.Offset(Val(Rng) - 1, 0)).EntireRow.Insert
            
    'The line above shows the number of rows and formulas To copy down.
    'The Section below assumes from A over To last entry In row.
    
    k = ActiveCell.Offset(-1, 0).Row
    n = Cells(k, 709).End(xlToLeft).Column
    
    Range(Cells(k, 1), Cells(k + Val(Rng), n)).FillDown
    
    Application.ScreenUpdating = False
    'Inserts Key Principal names in sequence
    
    'Range("_kp1").Select
        
    
    'Sets up Column Numbers
    Range("_2530_kps_count").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("_2530_kps_count").Select
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Trend:=False
 ----------------------------------------------------------------------------------------------------   
    Range("U:U").EntireColumn.Hidden = True
        
    'Put cursor back at top of Principals in Tab 4
    Application.Goto Reference:="_2530_kp1"
    Sheets("Checklist").Protect Password:="2373"
      
End Sub

Moderator Note:

Pls use code tags around your code next time as per forum rules.