Copia de valores macro

Hola expertos, mi duda es la siguiente tengo una macro que toma el valor de una celda y lo copio en otra para guardarlo, pero cuando tengo la hoja filtrada no me funciona, alguna idea para resolver esto? Esta es la macro

Sub extraevalorpcelda()
'//Obtiene el Valor ingresado en la Columna H al cambiar cada celda
'//y lo copia en Columna según fecha de corte ingresado
'//en la celda B2 Cells(2,2).
'//utilizo función busc_mat que retorna la celda donde esta la fecha
'//en el rango X101:BJ101 con offset bajo una celda
'//para copiar los valores
Set matrizbusq = Worksheets("BaseDatos").Range("Y123:BK123")
dtmCorte = Cells(3, 2)
Fila1 = ActiveCell.Row - 1 'ActiveCell.Previous.RowPrevious Función Que mantiene el cursor en la celda que se esta modificando
If dtmCorte > 0 Then
If Fila1 = 123 Then
Exit Sub
Worksheets("BaseDatos").Range("H" & Fila1 + 1).Select
End If
Worksheets("BaseDatos").Range("H" & Fila1).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-15
Ubicación = busc_mat(matrizbusq, dtmCorte)
If Worksheets("BaseDatos").Range(Ubicación).Column > 26 Then
Col1 = Left(Range(Ubicación).Address(False, False), 2)
Else
Col1 = Left(Range(Ubicación).Address(False, False), 1)
End If
Worksheets("BaseDatos").Range(Col1 & Fila1).Select
ActiveSheet.Paste
Worksheets("BaseDatos").Application.CutCopyMode = False
Worksheets("BaseDatos").Range("H" & Fila1 + 1).Select
Else
MsgBox "Ingrese Fecha para el Avance", vbCritical
End If
End Sub

Muchas Gracias