Worksheet_Change no funciona cuando copio y pego valores

Tengo un problema que estoy tratando de solucionar.

Private Sub Worksheet_Change(ByVal Target As Range)
Hoja2.Activate
rango = "C4:C1000"
If Not Application.Intersect(Target, Range(rango)) Is Nothing Then
ActiveCell.Offset(-1, 33) = ActiveCell.Offset(-1, 0).Value
End If
End Sub

La macro me funciona si cambio los valores, celda por celda. Pero si copio y pego una rango de celdas, la macro no funciona. ¿Cómo puedo hacer que funcione?