Macro para presionar una tecla

Buenas como les va. Hace rato no vengo por acá ya que con las herramientas que me dieron me ayudaron mucho y pude hacer varias macros que me CAMBIARON LA VIDA .
La pregunta es la siguiente, después de ejecutar una macro, que es esta:

Sub Combina_Franco()
Range(ActiveCell, ActiveCell.Offset(0, 14)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.Merge
.Font.Bold = True
.Font.Italic = True
.Interior.ColorIndex = 10
.Borders.ColorIndex = xlNoneEnd
With Selection
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
ActiveCell = "DÍA FRANCO"
ActiveCell.Font.Name = "Arial"
ActiveCell.Font.ColorIndex = 2
ActiveCell.Font.Size = 10
ActiveCell.Font.Bold = True
ActiveCell.Font.Italic = True
ActiveCell.Interior.ColorIndex = 10
End With
End With
End Sub

La cual centra determinadas celdas y les da formato y las rellena con un texto cuando esas celdas tienen algún texto se me aparece siempre esta ventana: "...La selección contiene valores de datos múltiples. Al combinar en una única celda se conservaran los datos del extremo superior izquierdo..."

Lo cual yo solo le doy enter y prosigo por que la macro siempre la rellena con el texto que se le ordena.

Mi pregunta?

Necesito adjuntar a esta macro, o hacer una nueva que se ejecute automáticamente desues de usar esta que apreté la tecla enter. Ya se que es solamente un detalle, pero estos detalles de a unoi me llevaron a automatizar todos mis trabajos y me ayudaron a aprender a crear estas benditas herramientas. Muchas gracias desde ya.