Modificar código de 3pies

[niconico]

3pies me paso un código hace un par de días en una duda que tenía a cerca de una referencia circular, este me sirve para que si modifico una celda en una hoja otra celda de otra hoja se modifique automáticamente. El problema que tengo ahora es que si borro el contenido de una celda se borra el contenido de la otra celda, bien, pero si borro el contenido de dos o más celdas a la vez sólo me borra una de ellas, como conseguiría que me las borrara todas.

Código hoja 1:

Código:

 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 16 And Target.Column = 2 Then
    Hoja4.Range("B16") = Range("B16")
End If
If Target.Row = 17 And Target.Column = 2 Then
    Hoja4.Range("B17") = Range("B17")
End If
If Target.Row = 18 And Target.Column = 2 Then
    Hoja4.Range("B18") = Range("B18")
End If
If Target.Row = 19 And Target.Column = 2 Then
    Hoja4.Range("B19") = Range("B19")
End If
If Target.Row = 16 And Target.Column = 3 Then
    Hoja4.Range("C16") = Range("C16")
End If
If Target.Row = 18 And Target.Column = 3 Then
    Hoja4.Range("C18") = Range("C18")
End If
If Target.Row = 26 And Target.Column = 3 Then
    Hoja4.Range("C26") = Range("C26")
End If
If Target.Row = 27 And Target.Column = 3 Then
    Hoja4.Range("C27") = Range("C27")
End If
End Sub

Código hoja 2:

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 16 And Target.Column = 2 Then
    Hoja20.Range("B16") = Range("B16")
End If
If Target.Row = 17 And Target.Column = 2 Then
    Hoja20.Range("B17") = Range("B17")
End If
If Target.Row = 18 And Target.Column = 2 Then
    Hoja20.Range("B18") = Range("B18")
End If
If Target.Row = 19 And Target.Column = 2 Then
    Hoja20.Range("B19") = Range("B19")
End If
If Target.Row = 16 And Target.Column = 3 Then
    Hoja20.Range("C16") = Range("C16")
End If
If Target.Row = 18 And Target.Column = 3 Then
    Hoja20.Range("C18") = Range("C18")
End If
If Target.Row = 26 And Target.Column = 3 Then
    Hoja20.Range("C26") = Range("C26")
End If
If Target.Row = 27 And Target.Column = 3 Then
    Hoja20.Range("C27") = Range("C27")
End If
End Sub

[niconico]

Se me olvidaba muchas gracias