Working with Named Ranges

[ptmuldoon]

I created a simply macro that will adjust the headings of a group of cells as follows.

But if I add a row/column to the sheet, it will then of course attempt to place the headings in the wrong cells.

I have now given that group of cells/range a Name of "AR_Buckets". But I'm not certain how to modify the macro to ensure it always places the information in the correct place.

Can anyone help some?

Sub AR_InvoiceDate()
    Range("D8").Select
    ActiveCell.FormulaR1C1 = "'1-30"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "'31-60"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "'61-90"
    Range("G8").Select
    ActiveCell.FormulaR1C1 = "'91-120"
    Range("H8").Select
    ActiveCell.FormulaR1C1 = "'Over 120"
    Range("H9").Select
End Sub

[ptmuldoon]

Well, I keep teaching myself and maybe did it correct

I assigned a name range to first cell, and then used an offset for each other as follows. Is the below the best method to assign values to a group of named cells?

[code]
Sub AR_InvoiceDate()
Range("ARBucket_1") = "'1-30"
Range("ARBucket_1").Offset(0, 1) = "'31-60"
Range("ARBucket_1").Offset(0, 2) = "'61-90"
Range("ARBucket_1").Offset(0, 3) = "'91-120"
Range("ARBucket_1").Offset(0, 4) = "'Over 120"
End Sub
[\code]