Vencimiento de Plazos y mostrar en Hoja2

A los miembros de este foro, en esta oportunidad quisiera solicitar la ayuda con esta macro donde me genera en la hoja2 un reporte de las fechas que están por vencer de acuerdo a la fecha del computador.

En el archivo que adjunto en Hoja1, se encuentran mi base de datos donde las fechas están registradas en la Celda A y en la Celda AD se visualiza con color verde la palabra Activo y Pendiente, también hay un control de formularios(botón) resaltado en color negro VENCIMIENTO, y al presionar dicho botón se ejecuta la macro y como podrán ver están los datos generados, pero esa forma no es la correcta que deseo, sino que solamente debería quedar lo que a continuación detallo:

Gremio, Apellidos, Entidad, Vencimiento de Fecha

Ademas quisiera solicitarte y sino fuese mucha molestia que se pudiera emitir una alerta con un MsgBox, resaltando la palabra Activo y bueno a la espera de ayuda y colaboración quedo de Uds.

Macro que se usa:

Sub CopiarVencidas_GP()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
Dim Rango As Range
Set Rango = Range("A1").CurrentRegion
With Rango
.AutoFilter 30, "Activo"
'.AutoFilter 29, "<>Empacado"
.Copy Hoja2.Range("A1")
.AutoFilter
End With
Set Rango = Nothing
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub