Copiar data de una hoja y pegar en otra al final del ultimo registro

[edrainiery]

Buenos dias Familia

Nuevamente necesito su ayuda tengo un archivo en la cual quiero copiar los datos que estan en el sheet1 de la columna B en adelante sin el encabezado y pegarlo en la sheet2 debajo del ultimo registro que tenga esa hoja.

 

Favor su ayuda muchas gracias

anexare el documento tuve que acortar la data para poder subirlo

data foro.xlsx

[JSDJSD]

Prueba y comenta

Sub copiar(): Application.ScreenUpdating = False
    Hoja1.Range("B2", "CV" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row).Copy _
    Destination:=Hoja2.Range("A" & Hoja2.Range("B" & Rows.Count).End(xlUp).Row + 1)
End Sub

[JSDJSD]

Aquí tienes tu archivo

data foro.xlsm

[edrainiery]

Perfecto hermano muchas gracias lo que como tengo las hojas con numbre la edite de esta manera pero muchas gracias en verdad 

 

Sub copiar(): Application.ScreenUpdating = False
    Sheets("Auditoria").Range("B2", "CV" & Sheets("Auditoria").Range("B" & Rows.Count).End(xlUp).Row).Copy _
    Destination:=Sheets("IPTV").Range("A" & Sheets("IPTV").Range("B" & Rows.Count).End(xlUp).Row + 1)
End Sub