VBA and Event Study

1- How to make vba create new work book and save selected in it, on a variable bases, which means for every new change a new workbook?

2- Can I know whats wrong with the following range not executing on the attached spreadsheet;

Sub removezeroreturns()

Dim a As Double, a1 As Double, i As Integer, j As Integer, x As Integer

For x = 1 To 3

    For i = 1 To 547

    j = i + 1

a = Cells(i, 20).Value
a1 = Cells(i + 1, 20).Value

    If a1 = a Then

    Rows(j).Select
        Selection.Delete Shift:=xlUp
    
        End If
    
    Next i
 
 Next x

End Sub

Untitled.png

No spreadsheet attached.

Hello

When deleting rows, you should start from the bottom and work up. I have changed your code to do so.

Sub removezeroreturns()

    Dim a As Double, a1 As Double, i As Integer, j As Integer, x As Integer

        For x = 3 To 2 Step -1
            For i = 547 To 2 Step -1
                j = i + 1

                a = Cells(i, 20).Value
                a1 = Cells(i - 1, 20).Value

                If a1 = a Then
                    Rows(j).EntireRow.Delete Shift:=xlUp
                End If
            Next i
        Next x

End Sub