Delete all rows under row number 2

[Stevenn]

How is it possible to delete everything except Range("A1:D2")? I once saw something using Rows() in which it was specified to delete all rows from row 3. Is there any difference whether it's deleted or cleared? How can I be sure that it wont use memory?

 

[texasalynn]

Try this

LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Range("A3:A" & LR).EntireRow.Delete

 

[Stevenn]

Thank you. It works. I use

Rows(row_number & ":" & Rows(row_number).End(xlDown).Row).Select

but it seems like it does not take all my rows. I have the table below, but the code wont delete the row with the smilies (maybe because the two first columns are empty?).

[TABLE="class: grid, width: 256"]
<tbody>[TR]
[TD="width: 64"][/TD]
[TD="width: 64"][/TD]
[TD="width: 64"][/TD]
[TD="width: 64"][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"].
[/TD]
[TD="align: right"].
[/TD]
[TD="align: right"].
[/TD]
[TD="align: right"].
[/TD]
[/TR]
[TR]
[TD].
[/TD]
[TD].
[/TD]
[TD].
[/TD]
[TD].
[/TD]
[/TR]
[TR]
[TD="align: right"].
[/TD]
[TD="align: right"].
[/TD]
[TD="align: right"].
[/TD]
[TD="align: right"].
[/TD]
[/TR]
[TR]
[TD].
[/TD]
[TD].
[/TD]
[TD].
[/TD]
[TD].
[/TD]
[/TR]
[TR]
[TD="align: right"].[/TD]
[TD="align: right"].[/TD]
[TD="align: right"].
[/TD]
[TD="align: right"].
[/TD]
[/TR]
[TR]
[TD].
[/TD]
[TD].
[/TD]
[TD].
[/TD]
[TD].
[/TD]
[/TR]
[TR]
[TD="align: right"].[/TD]
[TD="align: right"].
[/TD]
[TD="align: right"].
[/TD]
[TD="align: right"].
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD="align: right"]:confused:[/TD]
[TD="align: right"]:confused:[/TD]
[/TR]
</tbody>[/TABLE]

 

[texasalynn]

those are actually icons so you would need to remove those a little differently. I'll need to search for my information on that - I'll get back to you

 

[texasalynn]

so here is the code for deleting shapes that will remove those

Sub Shapes1()
'Delete all Objects except Comments
    On Error Resume Next
    ActiveSheet.DrawingObjects.Visible = True
    ActiveSheet.DrawingObjects.Delete
    On Error GoTo 0
End Sub