naming ranges - about 500

i would like to define some names for alot of ranges

PIN1 = A5:I6
PIN2 = A5:I7
PIN3 = A5:I8
etc

up to PIN250 = A5:I505

can this be done via vba rather than doing it manually, very time consuming

thanks in advance

Here's one way:

Sub x()
    Dim i As Long
    
    With ActiveSheet
        For i = 1 To 250
            .Names.Add "PIN" & i, RefersTo:=.Range("A5", .Cells(i + 5, "I"))
        Next i
    End With
End Sub