Delete rows with Macro

[Horby]

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

 

[Sixthsense]

What needs to be deleted based on how?

 

[Horby]

i want delete Column A,B,C,D After Row nummber 6.

 

[Sixthsense]

Try this...

Sub DeleteDataRow()
    Range("A6").CurrentRegion.EntireRow.Delete
End Sub

 

[Horby]

Try this...

Sub DeleteDataRow()
    Range("A6").CurrentRegion.EntireRow.Delete
End Sub

Can I just emptying the content. Only the first column and the second, third and fourth after line 5. Your code works but to each columns.

 

[Sixthsense]

Try this...

Sub DeleteDataRow()
    Range("A6").CurrentRegion.ClearContents
End Sub

 

[Horby]

Code works on both columns and rows! I do not want to all.

 

[Sixthsense]

Can I just emptying the content. Only the first column and the second, third and fourth after line 5. Your code works but to each columns.

Sorry I am unable to understand what you want

Your above statement is unclear to me

 

[Horby]

See the picture, I just want to delete the specific color yellow.

 

[Sixthsense]

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