¿Cómo hacer que salga una lista plegable desde un msgbox?

Hola comunidad, tengo un problemita. He estado haciendo un cuadro para cargar una información pero necesito que esta lleve una uniformidad puesto a que la información se repite muchas veces y quisiera hacer una lista plegable con la información que se repite para que al momento de compactar la información que siempre suele ser a final de mes, se me haga mas fácil hacerlo.

eh aquí lo que eh estado haciendo.

Sub Agregar_Anticipo()
'
' Agregar un Nuevo Anticipo Macro
'
' SOLICITA EL TIPO DE ANTICIPO QUE SE VA A AGREGAR (CAJA CHICA O CHEQUE)
Range("A771").Select
ActiveCell.FormulaR1C1 = InputBox("¿Qué Tipo de Anticipo es? (Caja Chica o Cheque)")
'SOLICITA EL NOMBRE DEL EMPLEADO SOLICITANTE
Range("J771").Select
ActiveCell.FormulaR1C1 = InputBox("Introduzca los Apellidos y Nombres del Empleado Solicitante (AA,NN)")
'SOLICITA EL TIPO Y NÚMERO DE ANTICIPO
Range("L771").Select
ActiveCell.FormulaR1C1 = InputBox("Indique el tipo y número de anticipo")
'SOLICITA LA FECHA DEL ANTICIPO
Range("M771").Select
ActiveCell.FormulaR1C1 = InputBox("Indique la fecha del anticipo (DD/MM/AAAA)")
'SOLICITA EL PROYECTO DEL ANTICIPO
Range("N771").Select
ActiveCell.FormulaR1C1 = InputBox("Indique el proyecto al que será cargado el anticipo")
'SOLICITA EL MONTO DEL ANTICIPO
Range("O771").Select
ActiveCell.FormulaR1C1 = InputBox("Indique el monto del anticipo")
'SE CREAN LAS VARIABLES DEL MSGBOX Y CONTADOR
Mensaje = "Desea Incluir otro Anticipo?"
Estilo = vbYesNo + vbInformation + vbDefaultButton1
Titulo = "Agregar otro Anticipo"
o = 771
'PREGUNTA SI VAMOS A INCLUIR OTRO ARTÍCULO
For o = 771 To 111111
RESPUESTA = MsgBox(Mensaje, Estilo, Titulo)
'SI LA RESPUESTA ES SI, SOLICITA LOS DATOS DEL SIGUIENTE ARTÍCULO
If RESPUESTA = vbYes Then
Range("A" & o).Select
ActiveCell.FormulaR1C1 = InputBox("¿Qué Tipo de Anticipo es? (Caja Chica o Cheque)")
Range("J" & o).Select
ActiveCell.FormulaR1C1 = InputBox("Introduzca los Apellidos y Nombres del Empleado Solicitante (AA,NN)")
Range("L" & o).Select
ActiveCell.FormulaR1C1 = InputBox("Indique el tipo y número de anticipo")
Range("M" & o).Select
ActiveCell.FormulaR1C1 = InputBox("Indique la fecha del anticipo (DD/MM/AAAA)")
Range("N" & o).Select
ActiveCell.FormulaR1C1 = InputBox("Indique el proyecto al que será cargado el anticipo")
Range("O" & o).Select
ActiveCell.FormulaR1C1 = InputBox("Indique el monto del anticipo")
Else
ActiveWorkbook.Save
End
End If
Next o
ActiveWorkbook.Save
End Sub

Mucho les sabría agradecer la ayuda.

Saludos.