My VBA for formulas won't work if the data only has one row of info

[butters149]

Hello,

I created this code to apply this formula to the first row and then copy it down until the end, but then it does not work if the data/table only has one row. My code is below if anyone can help that would be great, I think it may just be something I am forgetting. thanks!

'Days Aged
Columns("I:I").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("I1").Select
ActiveCell.FormulaR1C1 = "Days Aged"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=TODAY()-RC[-4]"
Range("I2", "I" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
Columns("I:I").Select
Selection.NumberFormat = "General"

 

[MARK858]

Maybe...

Sub xxxx()
    'Days Aged
    Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("I1").Value = "Days Aged"
    If Cells(Rows.Count, 1).End(xlUp).Row > 1 Then _
       Range("I2", "I" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=TODAY()-RC[-4]"
    Columns("I:I").NumberFormat = "General"
End Sub

Not sure why you want the column formatted as General rather than "mm/dd/yyyy" or "dd/mm/yyyy" depending on region though.

 

[MARK858]

Or depending on what you want to happen if it is one row maybe...

Sub xxxx()
    'Days Aged
    If Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
        Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("I1").Value = "Days Aged"
        Range("I2", "I" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=TODAY()-RC[-4]"
        Columns("I:I").NumberFormat = "General"
    End If
End Sub

Still the below applies...
Not sure why you want the column formatted as General rather than "mm/dd/yyyy" or "dd/mm/yyyy" depending on region though.

 

[butters149]

Thank-you! This worked.

Or depending on what you want to happen if it is one row maybe...

Sub xxxx()
    'Days Aged
    If Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
        Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("I1").Value = "Days Aged"
        Range("I2", "I" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=TODAY()-RC[-4]"
        Columns("I:I").NumberFormat = "General"
    End If
End Sub

Still the below applies...
Not sure why you want the column formatted as General rather than "mm/dd/yyyy" or "dd/mm/yyyy" depending on region though.