Tengo la siguiente macro, y cuando quiero copiar los datos, no sé las filas que habrá.. he estimado 55 filas, pero si son menos, me inserta datos vacíos.. he incluido que me diga el número de filas, para conocer el número exacto.
Como puedo poner el rango sin conocer la última fila, y que inserte las filas que tengan datos.
Sub BorrarDatos()
'primero borro los datos de la hoja
Tengo la siguiente macro, y cuando quiero copiar los datos, no sé las filas que habrá.. he estimado 55 filas, pero si son menos, me inserta datos vacíos.. he incluido que me diga el número de filas, para conocer el número exacto.
Como puedo poner el rango sin conocer la última fila, y que inserte las filas que tengan datos.
Sub BorrarDatos()
'primero borro los datos de la hoja
Sheets("macro").Range("A2:B55").ClearContents
Sheets("macro").Range("D4:F55").ClearContents
Sheets("macro").Range("I4:L55").ClearContents
'copio datos de la hoja datos, es la hoja que he tenido que sale del programa milena, tengo que copiar
Sheets("datos").Range("A2:B55").Copy Destination:=Sheets("macro").Range("A4")
Sheets("datos").Range("C2:E55").Copy Destination:=Sheets("macro").Range("D4")
Sheets("datos").Range("F2:I55").Copy Destination:=Sheets("macro").Range("I4")
' CeldasVacias Macro
' Las celdas vacías de serie y número se cumplimentan.
Range("A4").Select
ActiveWindow.SmallScroll Down:=15
Range("A4:A41").Select
ActiveWindow.SmallScroll Down:=-54
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
Range("B4").Select
ActiveWindow.SmallScroll Down:=18
Range("B4:B41").Select
ActiveWindow.SmallScroll Down:=-60
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
ultimaFila = Sheets("datos").Cells(Rows.Count, 5).End(xlUp).Row
MsgBox "La última fila es: " & ultimaFila
End Sub