luis hernandez gil

Tengo la siguiente macro tuya, pero he modificado unas cosas, y ya no me funciona. Sub copiar() ' ''*Por Adriel Ortiz ' Set h1 = Sheets("HOJA DE CAJA") Set h2 = Sheets("DIARIO") u = h2.Range("A" & Rows.Count).End(xlUp).Row ' If u < 2 Then u = 2...

Necesito que me ayude con una macro que me copie un rango de celdas de una hoja y las pegue en otra hoja, pero si hay datos en la hoja que las pegue en la primera fila vacía.

Quisiera que me ayudaras con algo, estoy tratando de exportar toda una hoja de excel a un archivo txt. La primea fila de la hoja(DIARIO) es el encabezado, ocupa el rango A1:CI1 La idea, es que al exportar el archivo txt, quede de la siguiente forma: