losing my formula in macro

[amesatlast]

I have a subtotals page and I am filtering my information. After the filter i insert a formula and copy it down to the end of my information. I then remove the filter. Finally I Click the level two button. When I run the macro the formula stage gets lost. No formulas are getting entered.

When I traced this progam it isn't entering my formulas. Can anyone help me?
Sub Part3_Platy()
'
' Part3_Platy Macro
' Macro recorded 3/4/2005 by employee
'

'
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="0 Count"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C[2]"
Selection.FillDown
Range("A1").Select
Selection.AutoFilter Field:=1
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Columns("A:B").Select
Columns("A:B").EntireColumn.AutoFit
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub