Delete rows with Macro

[Horby]

Hi, How do I delete a set of rows automatically. See the picture

 

[Horby]

Still deletes rows at the top, and sometimes does not work! Try working on it more than once.

 

[Sixthsense]

May be try this...

Sub DeleteDataRow()
Dim lRw As Long

lRw = Cells(Rows.Count, "A").End(xlUp).Row
lRw = Application.Max(lRw, 6)

Range("A6:D" & lRw).ClearContents

End Sub

 

[Horby]

Does not work!

 

[Horby]

Check whether this helps you

Sub DeleteDataRow()
Dim lRw As Long

lRw = Cells(Rows.Count, "A").End(xlUp).Row
Range("A6:D" & lRw).ClearContents

End Sub

with a simple modification.

Sub DeleteDataRow()
Dim lRw As Long
lRw = Cells(Rows.Count, "A").End(xlUp).Row
Range("A6:D6" & lRw).ClearContents
End Sub

Works fine.

 

[Rick Rothstein]

with a simple modification.

Sub DeleteDataRow()
Dim lRw As Long
lRw = Cells(Rows.Count, "A").End(xlUp).Row
Range("A6:D6" & lRw).ClearContents
End Sub

Works fine.

I would think this should work as well...

Sub DeleteRows()
  Range("A6:D" & Rows.Count).ClearContents
End Sub

 

[Horby]

I would think this should work as well...

Sub DeleteRows()
  Range("A6:D" & Rows.Count).ClearContents
End Sub

This works well. How can be linked with conditional, e.g. execute code if A:A = 0

 

[Rick Rothstein]

This works well. How can be linked with conditional, e.g. execute code if A:A = 0

What does A:A=0 mean to you... all cells, including A1 through A5, down to the bottom of data, all have a physical zero in them?

 

[Horby]

What does A:A=0 mean to you... all cells, including A1 through A5, down to the bottom of data, all have a physical zero in them?

Total column is equal to zero.

 

[Rick Rothstein]

Total column is equal to zero.

All cells? Down to Row 1038576??? Or just down to the bottom of data (like I asked in my last message)?

 

[Horby]

All cells? Down to Row 1038576??? Or just down to the bottom of data (like I asked in my last message)?

Yes, All cells. 1 to last cell. A:A