I've answered this question on the basis of the original title and the requirement you've specified (i.e. In the code window that appears, enter the code below (you should be able to just copy & paste it) Sub DeleteEverySecondRow()įor i = Cells(Rows.Count, 'a').End(xlUp).Row To 2 Step -2Ĭlose the window and return back to your spreadsheet All duplicate rows are adjacent to each other)
you have a header row and, because of that, the first row containing your data is Row 2.
