Como escribir varias filas con un commandbutton

H o l a 

Cuales son las 2 columnas a copiar, ¿veo varias?

item ("A") y centro ("B") , desde la fila 3 hasta la 17  quiero copiar esas filas y pegarlas nuevamente en la 18

H o l a 

Te paso la macro 

Sub CopiarCol2()
'Por.Aortiz
    Set h1 = Sheets("Hoja1")
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    '
    h1.Range("A2:B17" & u).Copy
    h1.Range("A" & u).PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
End Sub

Valora para finalizar Excelente o bueno saludos!

Cambiar el nombre de la hoja

Hola gracias, tengo una pregunta si puedes observar los códigos que dicen 1100XXXX, lo quería reemplazar con un textboxt por digamos 11000001 y que se escriban las 15 celdas de nuevo como haría, estaba pensando poner un botón activeX para llamar a un formulario ya que, ¿no se como llamar a la sentencia que me escribiste arriba la pondría en un modulo?

h o l a 

si copia en un modulo y ejecuta

Sub CopiarCol2()
'Por.Aortiz
    Set h1 = Sheets("Hoja1")
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    '
    h1.Range("A2:B17").Copy
    h1.Range("A" & u).PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
End Sub

prueba y me comentas si hay para hacer algunos ajustes.

 u = h1.Range("A" & Rows.Count).End(xlUp).Row +1

En este codigo va de maravilla lo unico que falta es  digamos ingreso el codigo que esta en mi textbox

y este sea remplazado en las 15 filas de la fila cuando ejecute el codigo generar aparte de tambien generarme los 15 codigos en la fila B