Imprimir con áreas de impresión diferente con macro

Agracedería el apoyo para poder solucionar un problema de impresión con macros, en el cual se establece áreas de impresión, desde la ultima celda activa hasta el inicio del archivo, el problema que encuentro es que deja marcadas celda especificas y siempre son diferentes (find e archivo)al ejecutar la macro.
Pongo parte de la macro de impresión.
Esperaría poder contar con su apoyo pues soy principiante en la elaboración de macros
Sub impresion()
'el rango "ab1" es una columna despues la ultima columna que contiene datos
Range("AB1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlUp).Select
Range(Selection, Cells(1)).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AA$1746"
End Sub

{"Lat":22.5937260639293,"Lng":-100.8984375}