Filtro

Hola lecris.
esta rutina me va de maravilla,el problema surge cuando tengo activado el filtro en "historico",pues se pierde informacion. Me ayudas?
saludos y felices fiestas..
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fila, filalibre As Integer
If Target.Row > 20 Then
If Cells(Target.Row, 16).Value = "0" Then
If Sheets("historico").Range("A2").Value = "" Then
filalibre = 2
Else
filalibre = Sheets("historico").Range("A1").End(xlDown).Row + 1
End If
fila = Target.Row
Range("A" & fila & ":V" & fila).Copy Destination:=Sheets("historico").Range("A" & filalibre)
ActiveSheet.Unprotect
Target.EntireRow.Delete Shift:=xlShiftUp
End If
End If
End Sub