I've looked at other posts about file size, but didn't find anything that would seem to help. Here is my code. Is there something in this that is making the file size huge? Both the excel file and csv file are large. 

Private Sub cmdOK_Click()
Dim Location As String, Month As String, PostDate As String
Dim ACCDate As String, lastrow As Long, lrow As Long, myrange As String


    Select Case cboMonth.Value
        Case "January"
            ACCDate = "01"
            PostDate = "01/31/2013"
        Case "February"
            ACCDate = "02"
            PostDate = "02/28/2013"
        Case "March"
            ACCDate = "03"
            PostDate = "03/31/2013"
        Case "April"
            ACCDate = "04"
            PostDate = "04/30/2013"
        Case "May"
            ACCDate = "05"
            PostDate = "05/31/2013"
        Case "June"
            ACCDate = "06"
            PostDate = "06/30/2013"
        Case "July"
            ACCDate = "07"
            PostDate = "07/31/2013"
        Case "August"
            ACCDate = "08"
            PostDate = "08/31/2013"
        Case "September"
            ACCDate = "09"
            PostDate = "09/30/2013"
        Case "October"
            ACCDate = "10"
            PostDate = "10/31/2013"
        Case "November"
            ACCDate = "11"
            PostDate = "11/30/2013"
        Case "December"
            ACCDate = "12"
            PostDate = "12/31/2013"
     End Select
'=================================================================================
'Open Coding Worksheet and Data Export and Copy export data into Coding Worksheet

    Workbooks.Open Filename:= _
        "I:\Dept\Accounting\Asset & Liability Reconciliations\FY 2013 Reconciliations\12 CCV\Aimee\Coding Template.xlsx"
    ChDir _
        "I:\Dept\Accounting\Asset & Liability Reconciliations\FY 2013 Reconciliations\12 CCV\Schneck\Schneck Expense Transfer Entries"
    Workbooks.Open Filename:= _
        "I:\Dept\Accounting\Asset & Liability Reconciliations\FY 2013 Reconciliations\12 CCV\Schneck\Schneck Expense Transfer Entries\" & cboYear & "_" & ACCDate & " Export.xls"
    Columns("G:G").Select
    Selection.Copy
    Windows("Coding Template.xlsx").Activate
    Sheets("coding").Select
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWorkbook.SaveAs Filename:= _
        "I:\Dept\Accounting\Asset & Liability Reconciliations\FY 2013 Reconciliations\12 CCV\Schneck\Schneck Expense Transfer Entries\" & cboYear & "_" & ACCDate & " Coding.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'===================================================================================
'Look for "ERROR" in Col D

'    Workbooks.Open Filename:= _
'        "I:\Dept\Accounting\ConversionData\Schneck Transfers\" & cboYear & "_" & ACCDate & " CCV Journal Entry.csv"
'Option 1
'Windows("" & cboYear & "_" & ACCDate & " Journal Entry.xlsx").Activate
    Sheets("summarized").Select
Dim s, c As Range
Set s = Range("c1:c6000")
For Each c In s
If c.Value = "ERROR" Then
    MsgBox "ERROR found in " & c.Address & ".  Close both message boxes (OK then CANCEL) and research."
Exit Sub

End If


Next





'==================================================================================
'Copy summary into new workbook
    Windows("" & cboYear & "_" & ACCDate & " Coding.xlsx").Activate
    Workbooks.Add
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "I:\Dept\Accounting\Asset & Liability Reconciliations\FY 2013 Reconciliations\12 CCV\Schneck\Schneck Expense Transfer Entries\" & cboYear & "_" & ACCDate & " Journal Entry.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Windows("" & cboYear & "_" & ACCDate & " Coding.xlsx").Activate
    Sheets("summarized").Select
    Columns("A:B").Select
    Selection.Copy
    Windows("" & cboYear & "_" & ACCDate & " Journal Entry.xlsx").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("" & cboYear & "_" & ACCDate & " Coding.xlsx").Activate
    ActiveWindow.Close
    Windows("" & cboYear & "_" & ACCDate & " Export.xls").Close

'===================================================================================
'Insert Title Row
    Windows("" & cboYear & "_" & ACCDate & " Journal Entry.xlsx").Activate
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").FormulaR1C1 = "Acct"
    Range("B1").FormulaR1C1 = "Amount"
'===================================================================================
'Insert Batch Column
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Batch"
    Range("A2").FormulaR1C1 = "CCVTRANS"
    lastrow = ActiveSheet.UsedRange.Rows.Count
    Range("A2").AutoFill Destination:=Range("A2:A" & lastrow)
'===================================================================================
'Insert PostDate Column
    Columns("c:c").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("c1").Select
    ActiveCell.FormulaR1C1 = "Post Date"
    Range("C2").Select
    Do While IsEmpty(ActiveCell.Offset(0, 1)) = False
        ActiveCell.FormulaR1C1 = "" & PostDate & ""
        ActiveCell.Offset(1, 0).Select
    Loop
'===================================================================================
'Insert JournalRef Column
    Columns("e:e").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("e1").Select
    ActiveCell.FormulaR1C1 = "Journal Ref"
    Range("e2").FormulaR1C1 = "" & cboYear & "_" & ACCDate & " CCV Transfer"
    lastrow = ActiveSheet.UsedRange.Rows.Count
    Range("e2").AutoFill Destination:=Range("e2:e" & lastrow)
'===================================================================================
'Identify zero value rows
    Range("G2").Select
    Range("G2").FormulaR1C1 = "=IF(AND(RC[-3]<0.01,RC[-3]>-0.01),""YES"",""NO"")"
    lastrow = ActiveSheet.UsedRange.Rows.Count
    Range("g2").AutoFill Destination:=Range("g2:g" & lastrow)
    Range("G1").FormulaR1C1 = "DELETE"
'===================================================================================
'Convert to table
    Range("A2").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("A:G"), , xlYes).Name = _
        "Table1"
    Range("Table1[#All]").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=7, Criteria1:= _
        "YES"
    Selection.ClearContents
'===================================================================================
'Delete Column G
    Range("A1").FormulaR1C1 = "Batch"
    Range("B1").FormulaR1C1 = "Acct"
    Range("C1").FormulaR1C1 = "Post Date"
    Range("D1").FormulaR1C1 = "Amount"
    Range("E1").FormulaR1C1 = "JournalRef"
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Add Key:=Range( _
        "D:D"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("sheet1").Sort
        .SetRange Range("A:G")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("a1").Select
'===================================================================================
'Insert 2017-00 row
    lrow = ActiveSheet.Range("a2").End(xlDown).Row
    Range("a65536").End(xlUp).Offset(1, 0) = "CCVTRANS"
    lrow = ActiveSheet.Range("b2").End(xlDown).Row
    Range("b65536").End(xlUp).Offset(1, 0) = "2017-00"
    lrow = ActiveSheet.Range("c2").End(xlDown).Row
    Range("c65536").End(xlUp).Offset(1, 0) = "" & PostDate & ""
    lrow = ActiveSheet.Range("d2").End(xlDown).Row
    Range("d65536").End(xlUp).Offset(1, 0).Formula = "=SUM(D2:D" & lrow & ")*-1"
    lrow = ActiveSheet.Range("e2").End(xlDown).Row
    Range("e65536").End(xlUp).Offset(1, 0) = "" & cboYear & "_" & ACCDate & " CCV Transfer"
'===================================================================================
'Save as CSV file
    ActiveWorkbook.Save
    ActiveWorkbook.SaveAs Filename:= _
        "I:\Dept\Accounting\ConversionData\Schneck Transfers\" & cboYear & "_" & ACCDate & " CCV Journal Entry.csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    ActiveWindow.Close




Unload Me


End Sub