Modificar el autofiltro dado que la información no es fija

Tengo la siguiente macro:

Sub CopiaFechaVencimientoC()
Application.Calculation = xlCalculationAutomatic

CUO = Hoja8.Range("AR1") - 1
ActiveSheet.Range("$A$8:$BP$59").AutoFilter Field:=7, Criteria1:="<>"
Range("G9:G" & CUO).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.Range("$A$8:$BP$59").AutoFilter Field:=7, Criteria1:="="
Range("G6").Select
Selection.Copy
Range("G9:G" & CUO).Select
ActiveSheet.Paste
ActiveSheet.Range("$A$8:$BP$59").AutoFilter Field:=7
ActiveWindow.SmallScroll Down:=-10
Range("G9").Select
Application.Calculation = xlCalculationManual

End Sub

En la secuencia que se indica el autofiltro aquí lo indico que es el numero 59, pero como la información que se va registrando puede ser otra.

Como se podría realizar para indicar que el numero de fila es menor o mayor a lo que se indica de acuerdo a la información que se registra.