New to VBA: what script to write so that a file is not saved if there's no payments?

Hi,

I'm very new to VBA/ Macros so i'm not quite sure how to word it out but at the moment, in our workbook, if there's no payment a file is still automatically saved to our shared drive despite it being empty.

This is the current script we have. What do I add or amend in order to fix this? I don't want it a file to save in our shared drive if it's empty.

' IMS Update

    Sheets("Force Doc").Select
    Rows("2:2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$Y$1002").AutoFilter Field:=3, Criteria1:="1"
    Sheets("Paste").Select
    Cells.Select
    Range("B2").Activate
    Selection.ClearContents
    Sheets("Force Doc").Select
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Paste").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    IMSLoop = Workbooks(Date1 & ".xlsm").Sheets("Loop").Range("c2")


    Dim i As Integer

For i = 1 To IMSLoop

    Application.DisplayAlerts = False
    Workbooks.Add
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "\\fsp-sr1\Accounts\Department areas\Credit Control DCC\Delegate Uploader\Eventsforce\Output\" & Date1 & "\Temp.csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = True

    Windows(Date1 & ".xlsm").Activate
    Sheets("Paste").Select
    Rows("2:2").Select
    Range("B2").Activate
    Selection.Copy
    Windows("Temp.csv").Activate
    Rows("1:1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Fname = "IMS" & i & " - " & Workbooks("temp.csv").Sheets("temp").Range("o1") & " - " & Workbooks("temp.csv").Sheets("temp").Range("A1")

    ActiveWorkbook.SaveAs Filename:= _
        "\\fsp-sr1\Accounts\Department areas\Credit Control DCC\Delegate Uploader\Eventsforce\Output\" & Date1 & "\" & Fname & ".csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    ActiveWindow.Close savechanges:=True
    Sheets("Paste").Select
    Rows("2:2").Select
    Range("B2").Activate
    Selection.Delete Shift:=xlUp

Next i

    Sheets("Force Pay").Select
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$K$1002").AutoFilter Field:=3, Criteria1:="1"
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    ActiveWorkbook.SaveAs Filename:= _
        "\\fsp-sr1\Accounts\Department areas\Credit Control DCC\Delegate Uploader\Eventsforce\Payments\IMS Payments - " & Date1 & ".csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    Windows("IMS Payments - " & Date1 & ".csv").Activate
    ActiveWorkbook.Close savechanges = True
    Windows(Date1 & ".xlsm").Activate
    
       

End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer