Create a new worksheet based on the date

Good morning everybody,

I have this worksheet that I need to optimize. I have created a master sheet and I can create a new sheet by using this:

"Option Explicit

Sub AddMonthWkst()
Dim ws As Worksheet
Dim wsM As Worksheet
Dim strName As String
Dim bCheck As Boolean

On Error Resume Next
Set wsM = Sheets("Master")
strName = Format(Date, "Mmm yy")
bCheck = Len(Sheets(strName).Name) > 0

If bCheck = False Then
'add new sheet after Instructions
    wsM.Copy After:=Sheets(1)
    ActiveSheet.Name = strName
End If

Set wsM = Nothing
End Sub"

This works fine... but... Rows 2 (C:AF or C:AG, depending on the month, should contain the date (Mon, Tue, Wed, etc) while row 3 (C:AF or C:AG, depending on the month, should contain the date (01,02,03, etc).

Also I need to be able to create as many sheets as I need, right now I can only create the one that concerns the current month (this is because I might need to assign next months flights ahead of time, i.e. charters).

Is there a way that this can be achieved?

Thank you for any help/suggestions you can give