Sub ActualizarDatos()
'
' ActualizarDatos Macro
' Se actualiza con respecto a la Base de Datos hoja "Producto"
'Definir objetos a utilizar
Dim wsOrigen As Excel.Worksheet, wsDestino As Excel.Worksheet
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Productos")
Set wsDestino = Worksheets("Datos Unificados")
'Copiar datos de origen y pegar valores en destino
wsOrigen.Range("tblProductos[[#All],[ID]:[Articulo]]").Copy
wsDestino.Range("M2").PasteSpecial xlPasteValues...