Filtro

Hola Gabriel!
Te comento...
para que funcione el ejemplo que expongo correctamente sigue estas
instrucciones y si necesitas modificarlo seguro que podrás adaptarlo a
tus necesidades.

En la fila 3 he puesto los titulos de las columnas, Fecha, Datos y
Trimestres
en la celda A4 pones la primera fecha, en la B4 el dato que le
corresponda y en C4 tienes que poner esta formula:

=SI(Y(MES(A4)>0;MES(A4)<=3);"trimestre
1";SI(Y(MES(A4)>3;MES(A4)<=6);"trimestre
2";SI(Y(MES(A4)>6;MES(A4)<=9);"trimestre
3";SI(Y(MES(A4)>9;MES(A4)<);"trimestre 4"))))

Esta formula copiala tantas filas tengas en tu base de datos.
Bien, sigo, en la celda C1 escribe el texto Trimestres (puedes elegir
otra y empezar la base de datos desde la fila 2 pero para eso tendrás
que modificar la macro)

Ahora en un modulo "normal" pega el código que te pongo a
continuación:

Sub Trimestres()
Range("C2").Select
ActiveCell = "trimestre 1"
Range("A3:C15").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("C1:C2"), _
CopyToRange:=Range("D20"), _
Unique:=False
Range("D19") = "=SUM(E:E)"

ActiveCell = "trimestre 2"
Range("A3:C15").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("C1:C2"), _
CopyToRange:=Range("G20"), _
Unique:=False
Range("G19") = "=SUM(H:H)"

ActiveCell = "trimestre 3"
Range("A3:C15").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("C1:C2"), _
CopyToRange:=Range("J20"), _
Unique:=False
Range("J19") = "=SUM(K:K)"

ActiveCell = "trimestre 4"
Range("A3:C15").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("C1:C2"), _
CopyToRange:=Range("M20"), _
Unique:=False
Range("M19") = "=SUM(N:N)"

ActiveCell.Value = ""
End Sub

Ahora con esto en tus manos ajusta todo lo que quieras a tu gusto,
si tienes alguna duda...

un saludo,
JJE

Quiero a partir de una tabla cuya primera columna son fechas y las siguientes
datos, filtrar a cuatro lugares distintos de la misma hoja las fechas y datos
correspondientes a cada trimestre del año y sumar los datos en cada tabla
resultante.
Gracias anticipadas