Posta ae seu modelo compactado brother, o seu problema não é complexo, mais para ter uma ideia legal o modelo ajudaria bastante

Opa tudo certo espero que sim...

Quanto a criar uma pasta nova a cada mês tente essa macro:

Sub CRIARPASTA()

Dim VAR As Object, NOVAPASTA
Set VAR = CreateObject("Scripting.FileSystemObject")
Dim CAMINHO As String
CAMINHO = "C:"
NOVAPASTA = CAMINHO & UCase(MonthName(Month(Date))) & "-" & Year(Date)
If Not VAR.FolderExists(NOVAPASTA) Then
VAR.CreateFolder (NOVAPASTA)
End If
End Sub

Se funcionar vai adaptando até chegar ao seu objetivo...

Visite meu blog:

programacaopassoapasso.wordpress.com

Dim I As Integer

I = Sheets.Count
Sheets("bs").Copy after:=Sheets(I)
ActiveSheet.name = "bs" & I + 1

Utilizo este codigo para gerar as planilhas e preciso que quando a quantidade de planilhas chegarem a 30 ou 31 de acordo com o mês automaticamente ele crie uma nova pasta com uma copia do dia 1º

Edivan esta para criar nova pasta funcionou só que ela gera uma pasta vazia tenho duas opções que seria gerar na pasta atual de trabalho atraves de um botao planilha a planilha e no final criar uma rotina que geraria outra pasta ou um botão que gerasse uma pasta já com todas as planilhas do mês e adaptaria as macros de preenchimento para fazer o mesmo a cada dia e imprimir atraves de seleção de data ou numero.

Sim pois bem a macro que postei é apenas para a criação da pasta mesmo, para criar as planilhas tem que ser outra macro...

Poste seu arquivo modelo para melhor ajuda-lo