Copiar y pegar datos a otra hoja

Hola
Un colega necesitaba crear una macro que copiara los datos de una BD a otra hoja del mismo libro, pero pegarlos como valores [ya que algunas celdas contendrían formulas] eso si solo tenia que copiar exactamente la BD [no filas completas, en otras palabras marcar automáticamente el rango de la BD e ir a la otra hoja y pegarlos] pero con la nota que cada vez que pegara datos estos se fueran copiando debajo de los datos ya copiados, una y otra vez...

Lo que adapte no es la gran macro ni tan compleja que se diga pero lo que si trate que la macro sea lo mas rápida posible, mejor vean el código y el archivo para mejor entendimiento y esperando sea de utilidad a mas de alguno

Sub copiar_pegar()
    Dim col, ulf
    Application.ScreenUpdating = False
    col = Cells(6, Columns.Count).End(xlToLeft).Column
    ulf = Range("M" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range(Cells(6, 1), Cells(ulf, col)).Copy _
 
    With Sheets("Hoja2").Range("H" & Rows.Count).End(xlUp).Offset(1)
        .PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
    Application.ScreenUpdating = True
End Sub

Saludos desde Honduras