Excel Mover dados por mais de um critério VBA

[4hosanaj]

Pessoal estou com dificuldades em fazer uma alteração no VBA abaixo:

Meu objectivo é adicionar mais um critério para além do actual (do jeito que funciona a função =SE(E).

Para além da coluna E ou 5 que precisa ser igual a "Depositado" como mostra o meu código, preciso que a coluna A ou 1 seja diferente de vazio "", ou se for possível é claro que tenha alguma validação do valor usado no meu caso uma data qualquer válida desde que siga o formato dd/mm/aaaa.

 

Sub Deposita()
ultimaLinha = Folha4.Cells(Rows.Count, "a").End(xlUp).Row
  For i = 2 To ultimaLinha
        If Folha4.Cells(i, 5) = "Depositado" Then
            lin = Folha5.Cells(Rows.Count, "a").End(xlUp).Row + 1
            Folha5.Range(Folha5.Cells(lin, 1), Folha5.Cells(lin, 5)).Value = _
            Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).Value
            Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).ClearContents
        End If
    Next
End Sub

adicionado 14 minutos depois

Com o código abaixo consegui inserir o segundo critério, quero saber se esxiste algum código para validação validação do valor usado no meu caso uma data qualquer válida desde que siga o formato dd/mm/aaaa, porque com este código qualquer valor ele processa.

 

Sub Deposita()
ultimaLinha = Folha4.Cells(Rows.Count, "a").End(xlUp).Row
  For i = 2 To ultimaLinha
        If Folha4.Cells(i, 5) = "Depositado" And Folha4.Cells(i, 5) <> "" Then
            lin = Folha5.Cells(Rows.Count, "a").End(xlUp).Row + 1
            Folha5.Range(Folha5.Cells(lin, 1), Folha5.Cells(lin, 5)).Value = _
            Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).Value
            Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).ClearContents
        End If
    Next

End Sub