Add 5 rows below last row containing data

[howard]

I would like to include 5 rows below the last row containing data -see my code below

 With Sheets("Data").Range("D4", Cells(Rows.Count, "D").End(xlUp))

your assistance is most appreciated

 

[Fluff]

How about

With Sheets("data").Range("D4", Cells(Rows.Count, "D").End(xlUp).Offset(5))

 

[howard]

Thanks for the help

 

[Fluff]

Your welcome