Olá,

Escrevi uma macro/módulo em forma de função para copiar a data da célula 'O1' e acrescentar 1 dia a mais a cada nova célula da coluna A a partir da célula 'A9' até que seja atingida a data limite contida na célula 'O6' e também para inserir uma linha ao encontrar certo dia específico de uma data que o usuário digita na célula S2.

Por algum motivo que desconheço a função não retorna nenhum valor. Por favor, caso desconfiem de algo me comuniquem.

A função que fiz no módulo da planilha foi:

Public Function IntervaloMes(dDataX As Date) As Boolean



Dim i As Integer
Dim j As Integer
Dim inicioDate As Date
Dim finalDate As Date
Dim refDate As Date
Dim seguinteDate As Date


incioDate = DateValue(dDate)
finalDate = Range("O6").Value
i = 9
refDate = Day(Cells(2, 19))


Do While inicioDate <> finalDate
    
    If Cells(i, 1).Value <> "" Then
        
        seguinteDate = DateAdd("d", 1, inicioDate)
        Cells(i + 1, 1).Value = seguinteDate

        If Day(seguinteDate) = refDate Then
            
            For j = 1 To 10
                Cells(i, j).Value = ""
            Next j
        End If
    Else
        seguinteDate = DateAdd("d", 2, inicioDate)
        Cells(i + 1, 1).Value = seguinteDate
    End If


    i = i + 1
    inicioDate = seguinteDate
Loop

End Function