Luis Mondelo respondió:
Te mando la macro hecha por mi y con menos líneas: Sub prueba() 'por luismondelo Sheets("datos").Select Range("d7:e7").Copy Sheets("hist").Select Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub recuerda finalizar la consulta
Copiar a otra hoja, en la ultima fila, solo valores