Refrescar

Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controlo la col A - AJUSTAR
If Target.Column <> 1 Then Exit Sub
'si se borra la celda se quitan los colores de 8 celdas a derecha (cantidad máx)
If Target.Value = "" Then
Range(Target.Offset(0, 1), Target.Offset(0, 10)).Interior.ColorIndex = xlNone
Else
'se colorean la cant de celdas a derecha de rojo, que indica el valor de la celda
canti = Target.Value
Range(Target.Offset(0, 1), Target.Offset(0, canti)).Interior.ColorIndex = 36
End If
End Sub
Quisiera que que si no borro la celda sino que cambio el numero  me refrescara  las celdas con el numero puesto