Erro efetuar cadastro

[Paulo J Schelbauer]

Bom dia pessoal, estou realizando um projeto na empressa e fiquei travado em um ponto aqui, para realizar o cadastro tenho 9 textbox para registrar, porém apenas 5 são obrigatório para preencher as demais serão preenchidas posteriormente o atualizar ou editar o cadastro, estava tudo ok, porém eu tive um problema com as datas que estavam invertendo o dia e mês na tabela, eu corrigi isso, mais agora quando eu tento fazer o cadastro os outros campo das datas dão erro. Na imagem em anexo está onde deu o erro. Os 4 últimos range ali, eu irei preencher posteriormente. Existe uma forma de fazer ele entender que se o campo estiver vazio ele mesmo assim termine de realizar o cadastro?

[Frank K Hosaka]

Ao invés de usar uma caixa de texto, usei uma célula do lado. Se a célula estiver vazia, isso gera erro. Para contornar esse contratempo, o melhor é pedir para o VBA não considerar se a célula estiver vazia, tipo:
 

Sub Teste()
    If Not IsEmpty(Range("L5").Value) Then
        Range("K5").Value = Format(Range("L5").Value, "dd,mm,yyyy")
    Else
        MsgBox "A célula L5 está vazia. Por favor, insira um valor antes de executar a macro.", vbExclamation, "Aviso"
    End If
End Sub