Sub Add_Rpt_Footer_Rental_Data_All_Channels()
'
' Macro8 Macro
' Macro recorded 10/4/2006 by Daniel B Magnus
'
' Go to last row of data
'Range("A" & ActiveCell.SpecialCells(xlLastCell).Row).Select
Range("A" & Rows.Count).End(xlUp).Offset(4).Select
' Enter data in the next 3 rows
ActiveCell.FormulaR1C1 = _
"Distribution: B.Curtin, B.Dvorcek, G.Rusk, R.Buyno, A.Umali, S.Lee, H.Campbell, J.Collins, J.Howell, D.Baird, M.Kapilla, G.Drozda, D.Thro, C.Amschler"
ActiveCell.Font.Size = 8
ActiveCell.Offset(1, 0).Select
ActiveCell = "Prepared on " & Text(CreationDate(), "mm/dd/yy hh:mm") & " by Dan Magnus"
ActiveCell.Font.Size = 8
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = _
"=""File located at: "" & SUBSTITUTE(SUBSTITUTE(LEFT(CELL(""filename""),FIND(""]"",CELL(""filename""))),""["",""""),""]"","""")"
ActiveCell.Font.Size = 8
End Sub