Excel - Copiar y copiar información de celdas en otra hoja

Sub CopiarPegar()

    Application.ScreenUpdating = False ' |(Evita el parpadeo de la pantalla)

   Range("B6:L25").Copy ' |Copia un rango determinado de celdas.

    Worksheets("Data").Range("A65536").End(xlUp).PasteSpecial xlPasteValues  '|Pega la información de la hoja

                                                                             'seleccionada en otra hoja, debajo de

                                                                              'la última celda con datos de la columna A.

Application.CutCopyMode = False '|Desactiva el modo copiar

MsgBox "Se agregó información a la data", vbOKOnly + vbInformation, "Excel Consultor" 'Muestra un aviso ejecutada la macro.

End Sub

Sub CopiarPegar()

    Application.ScreenUpdating = False ' |(Evita el parpadeo de la pantalla)

    Range("B6:L25").Copy Destination:=Worksheets("Data").Rows(Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1)                                                                              'la última celda con datos de la columna A.

    Application.CutCopyMode = False '|Desactiva el modo copiar

    MsgBox "Se agregó información a la data", vbOKOnly + vbInformation, "Excel Consultor" 'Muestra un aviso ejecutada la macro.

End Sub

Sub CopiarPegar()

    Application.ScreenUpdating = False

    Range("B6:L25").Copy

    Worksheets("Data").Rows(Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteValues                                                                              'la última celda con datos de la columna A.

    Application.CutCopyMode = False '|Desactiva el modo copiar

    Application.ScreenUpdating = True

    MsgBox "Se agregó información a la data", vbOKOnly + vbInformation, "Excel Consultor" 'Muestra un aviso ejecutada la macro.

End Sub