vba to delete all rows below the selected cell

[cjcass]

Hi,

I have some simple vba as follows:

Sheet10.Select
Range("D3").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select

Which selects the cell below the last cell with data in it in column D.

What vba will next delete all rows from the selected cell row down?

Many thanks

 

[Joe4]

Try:

Rows(Range("D3").End(xlDown).Row + 1 & ":" & Rows.Count).Delete

 

[cjcass]

Brilliant! works perfect, many thanks for your time

 

[Joe4]

You are welcome!