Boa tarde!

Pessoal estou tentando transportar alguns dados do excel para o word através de uma variável que substitui um nome pré fixado no word por um valor de uma celula, tal codigo roda perfeito quando tenho valores, porem quando o valor da celula está vazia eu queria que o documento de word substituísse o texto para vázio tambem. Segue o código utilizado, alguem consegue me ajudar?

Sub Imagem3_Clique()


    Dim Word As Word.Application
    Dim DOC As Word.Document
    
    Set Word = CreateObject("Word.Application")
    Word.Visible = True
    
    Set DOC = Word.Documents.Open("C:UsersgsilvaDocumentsMarcoCheck List Pontos de Perigos - Modelo.docx")
    
    With DOC
        '*Dados Cliente
        .Application.Selection.Find.Text = "#CLIENTE"
        .Application.Selection.Find.Execute
        .Application.Selection.Range = UCase(Range("E6"))

        '*Dados Unidade
        .Application.Selection.Find.Text = "#UNIDADE"
        .Application.Selection.Find.Execute
        .Application.Selection.Range = UCase(Range("R6"))

    If Dir("C:UsersgsilvaDocumentsMarcoCheck List Pontos de Perigos.docx") <> "" Then
          Kill "C:UsersgsilvaDocumentsMarcoCheck List Pontos de Perigos.docx"
        End If
        .SaveAs ("C:UsersgsilvaDocumentsMarcoCheck List Pontos de Perigos.docx")
        '.Close
    End With
    
    'WORD.Quit
    Set DOC = Nothing
    Set Word = Nothing
    
End Sub