VBA Multiply Figure By Working Days In Current Month

I have the following sheet layout.

COLUMN B
COLUMN C
COLUMN D
COLUMN E
COLUMN F
COLUMN G

[Code] .....

What I'm trying to do, is add a formula via VBA in the "FTE" column (Column Q), which is as follows:

Search row 5 in columns C:N and find the month which matches the current date.When a match is found, take the corresponding value from row 4 and multiply this value by the value in column P.So using the above as an example, the formula in column Q on row 5, would be 22 multiplied by 32.05 giving a total of 705.10.

VB:
Sub Extract()

Dim ws As Worksheet, LastRow As Long
Const StartRow As Long = 5

For Each ws In Worksheets(Array("Direct Activities", "Enhancements", "Indirect Activities", "Overheads", "Projects"))
LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row

[Code] ....