Deleting Rows if Row (But 1st Cell) sums to 1

Sub Delete_Rows()
    
    Dim i As Integer
    
    With ActiveSheet.UsedRange
        For i = 2 To 24
            .AutoFilter Field:=i, Criteria1:="1"
        Next i
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete
        .AutoFilter
    End With
End Sub

Sub deleteRows()

Cells(1, 25).FormulaR1C1 = "=COUNTIF(RC[-23]:RC[-1],1)"
Cells(1, 25).AutoFill Destination:=Range("Y1:Y13200")

With Range(Cells(1, 25), Cells(13200, 25))
    .Copy
    .PasteSpecial Paste:=xlPasteValues
End With

Range(Cells(1, 1), Cells(13200, 25)).AutoFilter Field:=25, Criteria1:="=23"
Range(Cells(1, 1), Cells(13200, 25)).AutoFilter Field:=1, Criteria1:="<>1"
Range(Cells(1, 1), Cells(13200, 25)).SpecialCells(xlCellTypeVisible).EntireRow.Clear

Columns(25).Delete

End Sub