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

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

Aquí tienes tu archivo

data foro.xlsm

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