Macro para copiar datos en otra hoja
He utilizado una macro de Elsa Matilde para copiar datos de una hoja a otra, pero me he topado con un problema.
Sub pase()
'x Elsamatilde
'guardamos en variable la primer fila libre de la hoja2
libre = Sheets("DATOS").Range("B65536").End(xlUp).Row + 1
'guardamos en variable la última fila ocupada de hoja1
finfila = ActiveSheet.Range("G65536").End(xlUp).Row
'copiamos rango solo valores
ActiveSheet.Range("G9:O33" & finfila).Copy
Sheets("DATOS").Range("B" & libre).PasteSpecial Paste:=xlValues
'inhabilita el modo Copiar/Pegar
Application.CutCopyMode = False
'opcional borrar aquí mismo o colocar esta línea en otro botón
ActiveSheet.Range("K9:N33" & finfila) = ""
End Sub
La Macro funciona a la perfección, pero el problema es el siguiente: en la hoja donde se cargan los datos (Carga) utilizo el rango G9:O33 donde en las columnas G, H, I, J y O hay formulas, por tanto solo se ingresan datos manuales en las columnas K a la N. Esto no significa que siempre se carguen datos desde la fila 9 a la 33, en ocasiones solo se utiliza una fila o 2. Acá es donde tengo el problema, cuando utilizo la macro para copiar los datos ingresados a la hoja de base de datos siempre me copia el rango G9:O33, y si solo hubiese ingresado una fila de datos cuando vuelvo a ingresar mas, al copiarlos me deja en blanco 24 filas de la hoja de datos a partir del ultimo ingreso y desde ahí copia los nuevos.