Macro para inserir linha entre valores de data numa coluna

[melop]

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