Duda con Programación de macro.

Estimados quiero crear una macro la cual consiste en interacción entre 2 hojas de calculo POR e Y

Primeramente se agrega los N° que se utilizaran en la hoja Y.

La hoja POR esta para un máximo de 50 filas las cuales pueden llenarse una cantidad menor de estas, posteriormente filtrarlas, dejar solo las que contengan información y ordenarlas de A-Z (N°).

Contiene: N°, Nombre, Código, Fecha, otros.

Posteriormente se copia y nos dirigimos a la hoja Y donde seleccionamos la columna fecha y aplicamos filtro para buscar las vacías, además se ordena A-Z (N°) y elimina los vacíos con lo cual queda solo las que coinciden entre Hoja POR y Hoja Y. Esto funciona bien pero al momento de apretar la macro no se desplaza y copia donde se ingreso la información anterior.

' INGRESO Macro
'

'
ActiveWorkbook. Worksheets(" INGRESO MACRO"). AutoFilter. Sort. SortFields. Clear
ActiveWorkbook. Worksheets(" INGRESO MACRO"). AutoFilter. Sort. SortFields.Add Key _
:=Range("A1:A51"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets(" INGRESO MACRO").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$A$1:$H$51").AutoFilter Field:=1, Criteria1:="<>"
Sheets("Info").Select
ActiveSheet.Range("$A$1:$O$10000").AutoFilter Field:=10, Criteria1:="="
ActiveSheet.Range("$A$1:$O$10000").AutoFilter Field:=1, Criteria1:="<>"
Sheets(" INGRESO MACRO").Select
Range("D2:E52").Select
Selection.Copy
Sheets("Info").Select
Range("D9").Select    (CREO QUE ESTA LA FALLA ACÁ, LA CUAL AL EJECUTARLA ME PEGA EN MISMA ZONA EN VES DE IR DONDE ESTA VACIÓ)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(" INGRESO MACRO").Select
Range("F2:H52").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Info").Select
Range("J9").Select (CREO QUE ESTA LA FALLA ACÁ, LA CUAL AL EJECUTARLA ME PEGA EN MISMA ZONA EN VES DE IR DONDE ESTA VACIÓ)
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H9").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Info").AutoFilter.Sort.SortFields.Clear
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("F2").Select
Sheets(" INGRESO MACRO").Select
Range("I2").Select
Sheets("Macro").Select
Range("J6").Select
End Sub

Dejo mi correo para enviar la planilla si es que no entendieron la consulta: [email protected]