insert a row with the formulas of the row above it

[M15tyw00d]

How can I insert a row and have it also continue the formulas?

I found the following but not sure if this is right or if so how to adapt it.

My formatted table is A1:AQ74 with the following formulas

Excel 2007

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN	AO	AP	AQ
11	Oct '12	Patient	Referral	Referral	Referral	Referral	Case Mgr	Financial Class		Diagnosis	Evaluate	Denied /	Code	Reason	Activity	Discharge	Discharge	Admit	Admit	PND	PND	D/C	Phy	Med	SNFLR	UNIT	AMERI	United	BCBS	Coventry			Other	No	No	No	Transport Delay		Dr Approval	Other	Total Delay Time	(W)ithin 48 hrs /	Total Hours from
12		Name	Facility	Date/Time	Day	Doctor	RN	Primary	Secondary		Date	Void ?			Level	Rec	Actual	Date/Time	Day	OT #	PT #	Delay	Delay	Hold										Head Bed	Bed	Bari Bed	Pt. Not Ready	Pt. Appt.	Delay		Hours:Minutes	(N)ot within 48 hrs	Ref. to Adm.
13	1	Jane Doe	VCH-F	1/13/13 10:00 AM	Sunday	Grundmeyer	Joan	M	BC	CVA	1/4/13							1/16/13 1:00 PM	Wednesday	0:12					3:30																3:42	W	30

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
</tbody>

Nov 12​

Worksheet Formulas Cell Formula E13 =IF(D13="","",TEXT(D13,"dddd")) S13 =IF(R13="","",TEXT(R13,"dddd")) AO13 =IF(SUBTOTAL(109,T13:AN13)=0,"",(SUBTOTAL(109,T13:AN13))) AP13 =IF(D13="","",IF($F$7<=R13-D13,"W","N")) AQ13 =IF(R13="","",IF(AND(INT(D13)=INT(R13),NOT(ISNA(MATCH(INT(D13),$A$3:$F$3,0)))),0,ABS(IF(INT(D13)=INT(R13),ROUND(24*(R13-D13),2),(24*($B$6-$A$6)*(MAX(NETWORKDAYS(D13+1,R13-1,$A$3:$F$3),0)+INT(24*(((R13-INT(R13))-(D13-INT(D13)))+($B$6-$A$6))/(24*($B$6-$A$6))))+MOD(ROUND(((24*(R13-INT(R13)))-24*$A$6)+(24*$B$6-(24*(D13-INT(D13)))),2),ROUND((24*($B$6-$A$6)),2))))))) <thead> </thead><tbody> </tbody>

<tbody>
</tbody>

This is the code I found for inserting a row....

Sub Add_Row_and_Formula()
Dim insRows As Long
insRows = ActiveCell.Row
Selection.Insert Shift:=xlDown
Range("AB" & insRows - 1).Select
Selection.AutoFill Destination:=Range _
("AB" & insRows - 1, "AB" & insRows), Type:=xlFillValues
Range("AB" & insRows - 1, "AB" & insRows).Select
Range("AB" & insRows).Select
End Sub

 

[M15tyw00d]

Does anyone know how to do this?