>>718
VBAにcountifなんて関数はない
ワークシート関数を使いたい場合はWorksheetFunctionを使って

result = Application.WorksheetFunction.CountIf(Range("P2:P336"), "食品")

のようにする