Copy Formula When Adding Rows With Macro

[angusfire]

I have a macro that add rows to a range. The new rows copy the formula from the row above correctly except for the first column. Any suggestions?

    m = Range("Add_Months").Value
    Application.CutCopyMode = False
    Rows(Range("Date_List").Rows.Count + Range("Date_List").Cells(0, 1).Row - 1).EntireRow.Select
    Rows(Selection.Row).Copy
    Rows(Selection.Row).Resize(m).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = True

 

[MUKESHY12390]

you can check row before action you perform.

Dim lstRow as long


'''to find out last used row in column A
lstrow =  worksheets("Date_List").cells(rows.count,"A").end(xlup).row


''''check if it is not first Row
if lstrow  <> 1 then


''''Perform action here"

Else
 Msgbox "No Data Available, just Header"

End if