Copiar masivamente valores en una hoja y que los elimine de todas las otras hojas

Necesito nuevamente su ayuda, necesito esta vez que al copiar datos en la columna B de la hoja VENTA se busque automáticamente los valores en el resto de hojas por ejemplo VALLENAR, y lo elimine de esa hoja pero quede el dato en la hoja VENTA, tengo un código pero actualmente no me esta funcionando, lo dejo de todas formas:

Private Sub Worksheet_Change(ByVal Target As Range) 
On Error Resume Next 
Application.ScreenUpdating = False 
Sheets("CASA MATRIZ").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("BALMACEDA").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("COPIAPO").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("COQUIMBO").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("MALL PARIS").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("OVALLE").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("PTA DEL MAR").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("SALAMANCA").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("VALLENAR").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("VICUNA").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("TERRENO").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("FURGON").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("ENTEL").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Sheets("EJECUTIVO").Range("B1:B5000").Replace Target, "", 1, , False, False, False 
Application.ScreenUpdating = True
End Sub