Selección de un rango desde celda activa hasta última celda con datos, aunque haya celdas vacías entre medias y borrar la selección

[Enid86]

Buenos días! A ver si alguien puede ayudarme... ?

Dada la celda activa, quiero seleccionar todas las celdas hacia abajo y hacia la derecha, hasta las últimas celdas con datos, aunque haya celdas vacías entre medias, y borrar su contenido.

He probado de mil maneras y no doy con la buena..... Creo que lo que más se acerca a lo que quiero es esto, aunque no lo estoy aplicando correctamente porque me da error en 'Range' de '_Objeto' global:

                    busca.Offset(filatm + 1, -13).Select
                    Dim abajo As Range, derecha As Range
                    abajo = Range(ActiveCell, Range(ActiveCell).End(xlDown).SpecialCells(xlCellTypeLastCell)).Select
                    derecha = Range(ActiveCell, Range(ActiveCell).End(xlToRight).SpecialCells(xlCellTypeLastCell)).Select
                    Range(abajo, derecha).Clear

No sé qué estoy poniendo mal...

Gracias de antemano! ?

 

[ikanni]

Hola,

Prueba así a ver sí te lo coje...(cambio en rojo)

abajo = Range(ActiveCell, Range(ActiveCell).End(xlUp).SpecialCells(xlCellTypeLastCell)).Select

[Haplox]

@Enid86 , prueba con el código:
 

Sub borrar()
Dim uc&, uf&, rng As Range

uc = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
uf = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row

Set rng = Union(Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, uc)), Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(uf, ActiveCell.Column)))
rng.ClearContents

End Sub

 

[Antoni]

With ActiveCell
   .Resize(Rows.Count - .Row, Columns.Count - .Column).Clear
End With

 

[Enid86]

Hace 4 horas, Antoni dijo:

With ActiveCell
   .Resize(Rows.Count - .Row, Columns.Count - .Column).Clear
End With

 

Sencillo y perfecto, como siempre.... Muchas gracias, Antoni. ??

[Enid86]

Muchas gracias a todos!?

Hace 5 horas, ikanni dijo:

Hola,

Prueba así a ver sí te lo coje...(cambio en rojo)

abajo = Range(ActiveCell, Range(ActiveCell).End(xlUp).SpecialCells(xlCellTypeLastCell)).Select

 

Hace 4 horas, Haplox dijo:

@Enid86 , prueba con el código:
 

Sub borrar()
Dim uc&, uf&, rng As Range

uc = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
uf = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row

Set rng = Union(Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, uc)), Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(uf, ActiveCell.Column)))
rng.ClearContents

End Sub