xxxxxxxxxx
Sub Delete_Every_Third_Row()
Dim Rng As Range
Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8)
For i = Rng.Rows.Count To 1 Step -3
If i Mod 3 = 0 Then
Rng.Rows(i).Delete
End If
Next i
End Sub
xxxxxxxxxx
' Removes 3rd row
ThisWorkbook.Worksheets(1).Rows(3).EntireRow.Delete
' Just clear cells without removing row
ThisWorkbook.Worksheets("Feuil1").Rows(3).Cells.ClearContents
' Removes 3rd row of a range
Range("My_RANGE").Rows(3).EntireRow.Delete