Macro para anexar archivos PDF en excel

Bueno en primera estoy trabajando en programilla en excel y lo que me falta es un userform donde busque archivos PDF y los anexe al excel, por ejemplo que el primer archivo lo anexe a la columna B2 y cada vez que anexe un archivo lo ponga en diferente fila ya sea B3, B4 y etc.

Lo que tengo es:

Private Sub Commandbutton1_Click()
Dim archivo As String
archivo = Application.GetOpenFilename
TextBox1.Text = archivo

End Sub

Aquí todo bien busca el archivo y agrega la dirección donde se encuentra el PDF en el textbox, pero ocupo el otro botón donde lo adjunte al excel, Por favor una ayuda que ya es lo ultimo para terminar