Need help to delete rows in VBA

Question

If the rows are not going 2,1,2,1,2,1, I want to develop a piece of code that will check column L and delete the row if the subsequent row does not include a 1.

I am fairly green with VBA so just finding similar codes and trying to tweak but to no avail.

Answer 1

Here is a basic macro that deletes rows.

Sub Delete_Rows()
Dim Wsht as Worksheet: Set Wsht = ActiveSheet
Dim RowNum as Long

With Wsht
For RowNum = .UsedRange.Rows.Count to 1 Step -1
   If .Cells(RowNum, 1) = 1 Then .Rows(RowNum).Delete
Next
End With

End Sub