Amigos

Será que alguem poderia me ajudar porfavor

Att

Não entendi direito sua colocação, mas tente o codigo abaixo e veja se lhe atende

Sub ModContar()
    
Dim Col As Long, Mes As String
    
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
Mes = UCase(MonthName(Month(Now())))
Col = Application.Match(Mes, Sheets(2).Range("A2:N2"), 0)
    Sheets(2).Select
         Cells(3, Col) = Application.WorksheetFunction.CountIf(Sheets(1).Range("A:a"), Range("B3"))
         Cells(4, Col) = Application.WorksheetFunction.CountIf(Sheets(1).Range("A:A"), Range("B4"))
         Cells(5, Col) = Application.WorksheetFunction.CountIf(Sheets(1).Range("A:A"), Range("B5"))

End Sub

Olá Reinaldo

Muito Obrigado..acho k vai servir sim

é sempre bom falar com quem entende

eu estava ficando doido já rsss

flw