Two For Next Loops together..

OK - so ignore me, I'm an idiot... I used the NumberofStaff variable for the projects and the staff....

'Counts the number of Staff

    Worksheets("Staff").Select
    NumberofStaff = Application.CountA(Range("A4:A100"))

'Counts the number of Projects

    Worksheets("Approved Projects").Select
    NumberofStaff = Application.CountA(Range("B3:B100"))