Profe Sergio equipo deztaca, en la clase de automatización de la macro para correr el query la macro nos mandaba un error si se tenia una version diferente de Excel, ver video minuto 1:20 aprox., revise el codigo y lo pude ejecutar con la siquiente linea de codigo, por si a alguien le sirve:

Private Sub Workbook_Open()


'ActiveWorkbook.Queries("por_mes").Refresh

'Con esta linea se puede corregir el problema
ActiveWorkbook.Connections("Consulta - por_mes").Refresh


'Seleccionamos el rango de celdas a enviar Select

'Le cambiamos el nombre de acuerdo donde se va a concentrar el query
'Sheets("Por mes (2)").ListObjects("Por_mes").Range.Select
Sheets("Consolidado").ListObjects("por_mes").Range.Select

ActiveWorkbook.EnvelopeVisible = True
'Llamamos al envío...
    With ActiveSheet.MailEnvelope
       '.Item.To = "[email protected]"
       .Item.To = "[email protected]"
       '.Item.cc = "[email protected]"
       '.Item.bcc = "[email protected]"
       .Item.Subject = "Concentrado mensual"
       .Introduction = "Se adjunta resumen por mes"
       .Item.Send
    End With
'ActiveWorkbook.Close SaveChanges:=True
End Sub