In deinem Code ist "IsEven" nicht mit der richtigen Syntax.
Es geht so:
WorksheetFunction.IsEven(Range("P44"))
"IsEven" ist ansonsten keine VBA-Funktion, daher "WorksheetFunction" davor, und das Argument kommt in Klammern dahinter.
Nur um deinen Code zum Laufen zu bekommen.
Mit Mod ist es aber eleganter, wie @adi120369 geschrieben hat.