Quiero eliminar las filas que contengan datos de las columnas A y B, para eso desarrolle una macro, corre y no marca ningun error pero no borra las celdas
¿Que puedo estar haciendo mal?
Sub Limpiar()
Dim Celda As Range, UltimaFila As Long
UltimaFila = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
For Each Celda In Range("A2:B" & UltimaFila)
If (Celda.Value = "") Then Celda.ClearContents
Next Celda
End Sub
If (Celda.Value = "") Then Celda.ClearContents
y eso lo que hace es que si la celda está en blanco, borra el valor (pero no borra la fila, ojo). Prueba conIf Not Celda.Value = "" Then Celda.ClearContents
aunque si lo que quieres es simplemente borrar el contenido de todas las celdas, es más rápido si hacesRange("A2:B" & UltimaFila).ClearContents