Exporting to new workbooks by column values

Try something like

Sub TEST01()
Dim sh As Worksheet

    Set sh = ActiveSheet
    Columns("AG:AG").ColumnWidth = 26.86
    Columns("AF:AF").ColumnWidth = 34.14
    
    Call FilterAndSave(sh, "AGUADO-LARA", "Libro1")
    Call FilterAndSave(sh, "AGUADO-PRIMO", "Libro2")
    'etc
    
    sh.Cells.AutoFilter
    Application.CutCopyMode = False
End Sub

Private Sub FilterAndSave(ws As Worksheet, Criteria As String, Filename As String)
Const ROOT_DIR As String = "C:\Home\ua5459\"
Dim rng As Range

    With ws.Range("$A$1:$BA$4675")
    
        .AutoFilter Field:=32, Criteria1:=Criteria
        Set rng = .SpecialCells(xlCellTypeVisible)
        rng.Copy
        Workbooks.Add
        ActiveSheet.Paste
        ActiveWorkbook.SaveAs Filename:=ROOT_DIR & Filename & ".xls", _
                              FileFormat:=xlExcel8, _
                              Password:="", _
                              WriteResPassword:="", _
                              ReadOnlyRecommended:=False, _
                              CreateBackup:=False
    End With
End Sub