Two For Next Loops together..

Hi there all,

I have this macro to create a time sheet from a template for each member of staff, what I need it to do after it is created is populate the time sheet from a list of projects in a separate worksheet:

Sub CreateTimesheets()

    Dim SheetName As String
    Dim NumberofStaff As Long

    Worksheets("Staff").Select
    NumberofStaff = Application.CountA(Range("A4:A100"))
    
    For i = 1 To NumberofStaff
    
        Sheets("S-TEMPLATE").Copy After:=Sheets(Sheets.Count)
        SheetName = "S-" & Worksheets("Staff").Cells(i + 3, "A")
        Sheets(Sheets.Count).Name = SheetName
        Cells(1, 3) = SheetName
    
    Next i

End Sub

I tried this, but it doesn't work

Sub CreateTimesheets()

    Dim SheetName As String
    Dim ProjectName As String
    
    Dim NumberofStaff As Long
    Dim NumberofProjects As Long
    

'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"))

'Copies the template, sends it to the end of the sheets and renames it as the staff members name
    
    For i = 1 To NumberofStaff
    
        Sheets("S-TEMPLATE").Copy After:=Sheets(Sheets.Count)
        SheetName = "S-" & Worksheets("MGJVStaff").Cells(i + 3, "A")
        Sheets(Sheets.Count).Name = SheetName
        Cells(1, 3) = SheetName
    
        For p = 1 To NumberofProjects
        
            Worksheets("Approved Projects").Select
            ProjectName = Cells(p + 2, 2)
            Worksheets(SheetName).Select
            Cells(p + 7, 3) = ProjectName
        
        Next p
    
    Next i

End Sub

Can anybody help pleeeeeeeeeease?

EDIT: OK, it seems to be something to do with the counting the number of Staff/Projects that's buggering it up.... the Staff members start in A4 of the Staff sheet, so I am trying to count the non-blank cells after that.