Galera!

Fiz um código pelo evento Change que ao digitar um valor na celula ativa as 4 subsequentes realizam um cálculo, porém não consigo realizar o mesmo para
quando o usuário apagar o valor, ou seja, quando ele deletar o valor digitado as demais celulas ficariam vazias.

Dim L, LMES, MES, LINHA, GMAC As Integer
Dim ILA As Long

    
LINHA = Target.Row
     
If Target.Column = 21 Then

    LMES = 0
Do While Sheets("CADASTRO BANCO").Cells(6 + LMES, 7) <> DatePart("m", Sheets("BANCO").Cells(LINHA, 6))
    
    ILA = Sheets("CADASTRO BANCO").Cells(7 + LMES, 9)
    LMES = LMES + 1
    '      MsgBox LMES & " - " & LINHA
Loop

    
  '  MsgBox DatePart("m", Sheets("BANCO").Cells(LINHA, 5))


    If Sheets("BANCO").Cells(LINHA, 21) <> Empty Then 'Target.Value <> Empty Then

              If Sheets("BANCO").Cells(LINHA, 11) = "Por Plano-Financiamento" And _
                 Sheets("BANCO").Cells(LINHA, 21) <> Empty Then
                
                GMAC = InStr(1, Sheets("BANCO").Cells(LINHA, 8), "GMAC")
         
                On Error Resume Next
                
                If GMAC > 0 Then 'MsgBox GMAC
                    Sheets("BANCO").Cells(LINHA, 22) = _
                    ((Sheets("BANCO").Cells(LINHA, 21) * 100) / (98.5))
                
                Sheets("BANCO").Cells(LINHA, 23) = ""
                
                Sheets("BANCO").Cells(LINHA, 24) = _
                Sheets("BANCO").Cells(LINHA, 22) * (0.015)
                
                Sheets("BANCO").Cells(LINHA, 25) = _
                Sheets("BANCO").Cells(LINHA, 21) - Sheets("BANCO").Cells(LINHA, 19)
                
                Sheets("BANCO").Cells(LINHA, 2) = DatePart("m", Sheets("BANCO").Cells(LINHA, 20))
                
                ElseIf GMAC = 0 Then
                    Sheets("BANCO").Cells(LINHA, 22) = _
                (Sheets("BANCO").Cells(LINHA, 21) * 100) / (100 - (ILA + 1.5))
                
                Sheets("BANCO").Cells(LINHA, 23) = _
                Sheets("BANCO").Cells(LINHA, 22) * (ILA / 100)
                
                Sheets("BANCO").Cells(LINHA, 24) = _
                Sheets("BANCO").Cells(LINHA, 22) * (0.015)
                
                Sheets("BANCO").Cells(LINHA, 25) = _
                Sheets("BANCO").Cells(LINHA, 21) - Sheets("BANCO").Cells(LINHA, 19)
                
                Sheets("BANCO").Cells(LINHA, 2) = DatePart("m", Sheets("BANCO").Cells(LINHA, 20))
                
                End If
                
              End If
              
   End If
        
End If
End Sub