Visual Basic - Regreso a Userform

Hola a todos
Tengo la siguiente aplicacion

Private Sub CommandButton1_Click()
If MsgBox("Esta Seguro de querer cotinuar??", vbYesNo, "Confirmacion") = vbYes Then
'Acciones a realizar
End If
Dim i As String
i = 2
While i <= 5000 And Sheets("Consumos Linea Lavado").Range("e" & i + 1).Text <> ""
i = i + 1
Wend
Sheets("Consumos Linea Lavado").Range("a" & i + 1) = UserForm3.DTPicker4
Sheets("Consumos Linea Lavado").Range("b" & i + 1) = UserForm3.ComboBox6
Sheets("Consumos Linea Lavado").Range("c" & i + 1) = UserForm3.ComboBox7
Sheets("Consumos Linea Lavado").Range("d" & i + 1) = UserForm3.ComboBox8
Sheets("Consumos Linea Lavado").Range("e" & i + 1) = UserForm3.TextBox1.Text
Sheets("Consumos Linea Lavado").Select
Range("A3").Select
Selection.EntireRow.Insert
Range("A3:A6").Select
Selection.NumberFormat = "[$-C0A]d-mmm-yy;@"
Range("A3").Select

El problema que tengo es que al dar click al Commandbutton1 hace toda la operacion sin problema, pero me deja en la Hoja llamada "Consumos Linea Lavado" y lo que quiero es que vuelva a cargar el UserForm3.

FAVOR SI ME PUEDEN AYUDAR
GRACIAS

Este es el foro de VB, debes ir al foro de Excel o de VBA

Abraham