VBA Code for Deleting 2 Rows Repetitively

Hello,

I am trying to figure a way to loop through a range in order to delete 2 rows using a range.offset (1,0).
Basically, the macro or code has to go down one cell and then delete 2 rows. This has to be repeated until the end of the range. The range is rows 2 to 63.

So, the code would delete the 2 rows (rows 3 and 4) below row2, then it would delete rows 6 and 7, then rows 9 and 10 .

I am pretty crappy at VBA but I want to learn how to do it. Any help would be greatly appreciated.

Here is what I have so far. I know how to declare a range and how to select the range to loop through, but I don't know how to write a loop script to delete the rows.

Sub GettingRid()

Dim RangeToDelete As Range
Range("2:63").Select

Dim Xi As Long
     
    For Xi = 2 To (2 + 63) / 2
        Rows(Xi).Delete
    Next Xi

End Sub

Try this

Option Explicit

Sub delete_rows()
Dim lrow As Long, i As Long

With Worksheets("Sheet1")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow + 1 To 3 Step -1
        If .Range("A" & i).Value = "" Then
            .Rows(i).Delete
        End If
    Next i
End With
End Sub

Hi,

I believe this code works.

Sub GettingRid2()

Dim RangeToDelete As Range
Range("2:63").Select

Dim Xi As Integer
Xi = 3
Do Until Xi = 34

Rows(Xi).Delete
Rows(Xi).Delete

Xi = Xi + 1

Loop

End Sub

Am glad it worked.

To mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved. I will do it for you this time.

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.