Delete rows in worksheet using VBA

Hi, I have a situation (below) I want to delete the first three rows repeatly (I updated the file to make it clearer)

row1: aaaa -> delete
row2: bbbb -> delete
row3: cccc-> delete
row4: Company name A
row5: data
row6: data
....
row9: data
row10: dddd -> delete
row11: eeee -> delete
row12: rrrrr -> delete
row13: Company name B
row14: data
row15: data
.......
row18: data
row19:fffff -> delete
....
1xxxx rows repeated like this
Thank you so much

Hi

Post sample data file.

Is there any data in a particular cell looking at which, we can delete the 3 rows prior to it or 3 rows after it?

May be this...

Please Login or Register  to view this content.

Thank you for your help
But it seems the code doesn't work they way I want maybe you can have a look on my attached file to see a clear example
Thank again

Try this code -

Please Login or Register  to view this content.

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

Try this...

Please Login or Register  to view this content.

1/. Put this in a spare column, say Column D
In D1, Drag/Fill Down.

Formula:

Please Login or Register  to view this content.

2/. Filter this column for "Delete"

3/. Select and Delete the resulting Rows, Edit > Delete Row

4/. Remove the filter, if not automatically done by your selection.

VBa isn't required, and this gives a visual check of what you are deleting.

Also this method is easier and more versatile than VBa.

[EDIT]
If your data is consistant, you might not need to wrap A1 in PROPER().

You need to try the formula through the steps given by Marcol in post 8 and let all know if it works.

That seems to be a completly different question.

Post another workbook showing the data before and after conversion.

Are you looking to delete groups of data rather than just certain rows?

Do not post your solution in the 1st post as it may confuse other users who are browsing your thread. Instead you can post it as the last post of this thread.

To mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.