Macro help applying formula to dynamic number of rows for different files (s/b EASY)

You need to use code tags when posting. Does this do what you want?

Sub yankeekid86()
'
' StatusView_QuotaCheck Macro
' BWW Status Viewer- Subtracting Total - Excluded in order to paste into Quota Check
'
Rows("1:2").Delete Shift:=xlUp
Columns("B:B").ColumnWidth = 14.43
Range("R1") = "Actual"
With Range("R2:R997")
    .FormulaR1C1 = "=RC[-1]-RC[-9]"
    .Value = .Value
End With
Columns("B:Q").Delete Shift:=xlToLeft
Cells.Interior.ColorIndex = xlNone
Range("A1") = "Store ID"
Range("A1").Font.ColorIndex = xlAutomatic
Range("A1:B1").Font.Bold = True
Cells.Font.Name = "Times New Roman"
Cells.Font.Size = 10
Range("B3").Select
End Sub