¿Cómo ubicar una celda con una macro de excel después de aplicar un filtro?

Estoy tratando de hacer una macro que recupere un valor de una lista en la hoja 2 y posteriormente aplique un filtro en la hoja 1 para ubicar la que tiene el mismo valor y posteriormente hacer un incremento en la columna G de la misma fila que el filtro, adjunto el código, todo va bien en el filtro pero al momento de buscar la celda a incrementar como el valor del filtro cambia cada que se selecciona un valor distinto las celdas cambian y no se como ubicar la celda cada que el filtro cambia

Sub incrementarfiltro()
Dim Descripción As String
Dim i As Integer
Dim o As Integer
Dim u As Integer
Sheets("hoja2").Select
ActiveSheet.Cells(4, 1).Select
If Not IsEmpty(ActiveCell) Then
Descripción = Range("A4").Value
i = Range("C4").Value
o = Range("K4").Value
Sheets("Hoja1").Select
ActiveSheet.Range("$A$3:$J$1000").AutoFilter Field:=3, Criteria1:= _
Descripción
Sheets("Hoja1").Select

i = i - o

'Aquí esta el problema
u = ActiveSheet.Cell(4, 7).Value
u = u + i
ActiveSheet.Cell(4, 7).Value = u

End If
End Sub