Delete lines within worksheet

[San Jose]

I have records within worksheet, each records takes five
rows, how do I set up a VBA to automatically delete the
second rows to the fifth rows of each record in this
worksheet ?

Thanks in advance for the help.