Corregir este código

Hola de nuevo grupo, mediante el siguiente código (sacado de este foro, y
pido perdón por no haber anotado el autor para mencionarlo ahora):

Sub GetData()
Dim NextRow As Long
Dim Entry1 As String, Entry2 As String, Entry3 As String
Do
NextRow = Range("B65536").End(xlUp).Row + 1
Entry1 = InputBox("Introduzca nombre del beneficiario")
If Entry1 = "" Then Exit Sub
Entry2 = InputBox("Cantidad")
If Entry2 = "" Then Exit Sub
Entry3 = InputBox("Introduzca Nombre familiar")
If Entry3 = "" Then Exit Sub
Cells(NextRow, 2) = Entry1
Cells(NextRow, 3) = Entry2
Cells(NextRow, 4) = Entry3
Loop
End Sub

consigo ir introduciendo datos en las celdas que necesito, el problema es
que no para de ejecutarse, sigue y sigue, y cuando voy a imprimir, por
ejempo el recibo, pues tengo que cancelar para poder hacerlo. Quisiera saber
si hay alguna manera de que una vez preguntadas las tres cuestiones:
1.-Introduzca nombre beneficiario, 2.- Cantidad y 3.- Nombre familiar, se
cerrara y cuando lo volviera a necesitar ya lo llamaria yo ¿podéis decirme
cómo hacerlo? Si consigo hacer esto, de momento ya puedo trabajar con mi
aplicación hasta que vaya mejorando todo un poco.
Muchas gracias y un saludo.
Carmen