Sub Delete6_to_8()
range("6:8").Delete
End Sub

Sub Insert6_to_8()
range("6:8").Insert
End Sub


--
Regards,
Tom Ogilvy

"Joe" wrote in message
...
Hi,

How to delete a specific range of cells that has the data
in there and leave blank cells there? This blank cells
will then contains the data upon pressing a button? for
example, I got row 1- 10 contains the data, decided to
delete rows 6-8 and leave blank, row 9-10 will still
cotains data. Upon pressing the buttons, rows 6- 8 will
filled the data again and will auto insert the rows needed
to contain the data. Rows9-10 which have data previously
will be pushed down after insertio of more rows.

many thanks,

regards,
Joe