I am supposing that the action you want to perform is in the sheet name "Sheet1"
but change to whatever you need.

I would simply try the following

Sub mydelete()
Dim i As Integer
For i = 2 To 2000 Step 4
Worksheets("Sheet1").Rows(i).Delete
Next i
End Sub
Hope this helps

your solution is the easiest and most direct.

It's unbelievable what you can learn in this group and IMHO you can use your new
knowledge very fast...

are you sure the code is doing what you expect?

Your code will delete row 2, then delete the sixth row and then the 10th.

The problem is that once you delete the second row, the seventh row is now
the sixth row and is the next to be deleted. When deleted, the 10th row is
actually the original twelfth row.

In deletion, unless you keep track, you should start at the end and work
backwards.

First indeed my code is not doing what was asked for, i.e. delete
rows 2 to 5 and keep row 6, My code is doing just the opposite. I
did not pay enough attention to the question and only read

>This process of delete every four rows  (and it will ALWAYS
> be every four rows) has to be repeated through row A2000


But this is not my question.

Let's say if we were to delete row 2 and then every 4 rows. Then I
guess we do need to delete row 2 and 6 and 10 and 14 , etc... (Which
the code does).
So why go backwards? It is not as if the requirement was to keep
track of every single deletion, update the rows count and then
perform the following deletion.

Am I right or am I completely out...

The reason to go backward is because if you delete row 5 for example,
then row 10 is no longer row 10, it's row 9. Know what I mean? So you
have to handle that. If you count backwards, you don't have that
problem.

The only reason to do it backwards is if you do not plan to keep track of
the deletions or do not want to try and work out the new end condition.

To delete the 3rd to 6th row you can

For i = 6 to 3 Step -1
Worksheets("Sheet1").Rows(i).Delete
Next i

Or

j = 3
For i = 1 to 4
Worksheets("Sheet1").Rows(j).Delete
Next i

Which is the same as:

Worksheets("Sheet1").Rows(3).Delete
Worksheets("Sheet1").Rows(3).Delete
Worksheets("Sheet1").Rows(3).Delete
Worksheets("Sheet1").Rows(3).Delete

Let me take another stab at this.

If you delete records in ascending order, that will affect the position of
the following records. If you do it in reverse order, the deletions will not
affect the rows  that come before it.

I was definitely rather confused yesterday evening, but this morning everything
cleared up. I got it and hope this time it's for good.

The deletion issue is subtle, it's like trying to hit a moving target.

This is how I would probably do it:

Sub DeleteNonContinousRows()

'Place the cursor at the correct cell in the sheet
Range("A1").Select
Application.Goto Reference:="R2C1"

For Counter = 1 To 400 '2000/5
ActiveCell.Range("A1:A4").Select
Selection.EntireRow.Delete
ActiveCell.Offset(1, 0).Range("A1").Select
Next Counter

End Sub

If it is just this one spreadsheet and just 2000 rows, it might be
faster to use a spare column to add a repeating sequence of 1 through 5
(as below). This takes a little time, but if you copy the first
sequence and paste, then copy the 2 sequences and paste, then copy the
four sequences and paste, etc...it wouldn't take more than a minute (I
just tried it to be sure).

A B C
A1 1,000.00 1
A2 Completed 2
A3 Misc data  3
A4 Misc Data 4
A5 5
A6 4,500.00 1
A7 Completed 2
A8 Misc Data 3
A9 Misc Data 4
A10 5
A11 1,452.25 1
.
.
.
A2000

Next, figure out which sequence number corresponds to the data you want
to keep (1 in this case), highlight the whole area, apply the
autofilter, and select the data you want by filtering out the other
sequence numbers. You could also select and delete the rows  you don't
want, but you'd better make a copy first.