Macro Copiar abajo del último dato copiado

Necesito ayuda para programar macro que copie los datos de un rango en Excel a una filas más abajo, mediante un botón.
Los TextBox están ligados a las celdas "A1:D1" que es la información que quiero copiar en una "tabla" a partir de la celda "A10"; cada que doy clic en el botón para agregar una nueva "estrategia" no debe borrarse la primera información que copié. Lo que hice para salvar un poco es insertar una fila al final de la macro para que dejara vacía la fila 10, sin embargo no es lo que necesito, ya que la información "nueva" debe quedar abajo de la que se copió primero. Es decir al primer clic la información debe quedar en la fila 10, al segundo clic la información debe quedar en la fila 11... Es lo que llevo:
Private Sub CommandButton1_Click()
Range("A1:D1").Select
Selection.Copy
Range("A10").Select
Selection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_
:=False, Transpose:=False
Application.CutCopyMode = False
Rows("10:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A10").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
End Sub
Saludos y gracias!