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