No me coge la información de la celda activa

Hola,
intento darle la orden para que me coja la información que hay en la página anterior cada 5 celdas.
La macro que le pongo es esta:
Public EsquinaTrimestres As Integer, EsquinaAgregados As Integer
Sub AgregarTodo()
Call PonerTipos
EsquinaTrimestres = 1
EsquinaAgregados = 2
Do
Call PonerTrimyAño
Call AgregadosDatos
' cambiar de año
EsquinaTrimestres = EsquinaTrimestres + 6
EsquinaAgregados = EsquinaAgregados + 5
Sheets("PanTrimestres").Select
Cells(1, EsquinaTrimestres).Select
Loop Until ActiveCell.Offset(1, 0).Value = ""
' PonerTrimyAño Macro
'
Sheets("PanTrimestres").Select
Cells(1, EsquinaTrimestres).Select
Sheets("Agregación").Select
Cells(1, EsquinaAgregados).Select
Sheets("PanTrimestres").Select
Año = ActiveCell.Offset(0, 1).Range("A1").Value
Sheets("Agregación").Select
ActiveCell.Value = Año
ActiveCell.Select
ActiveCell.Range("A1:D1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
¿Cómo se puede solucionar?
Gracias por su ayuda