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

Welcome to the Forum ericinfo13!

What do you mean by "empty"? It doesn't appear that you mean the file is literally completely empty. What is the condition that indicates that there is no payment?