Auto Fill down question

[Gor_yee]

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],R6C[-8]:R65536C[-2],7,1)"
Range("N6").Select
Selection.Copy
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("N6:N33")
Range("N6:N33").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue,
Operator:=xlEqual, _
Formula1:="=""Unreviewed"""
With Selection.FormatConditions(1).Interior
.ColorIndex = 35
.Pattern = xlGray8
End With
End Sub

I have this little macro that i recorded..I can 't get it to fill
right down so that whenever I enter data in column P it will fill down
as well?Thanks