autofilter causes file size to increase and filter doesn't work

I have following vba code, to filters & sort data, but somehow I am doing some silly mistake in code and code is not filtering out data. I have also observed that after filter applied, file size increases by 1mb, may be due to auto filter or other reason that I don't know

as I am begginer in VBA kindly help with this

 Sub FILTER_LONG()
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False



 'BRING FITERS CRITRERIA FROM CMP SHEET

  Sheets("CMP").Select
 Range("LONGBUILTUP").Select
 Selection.COPY
  Sheets("MAIN").Select
 Range("J2").Select
 ActiveSheet.Paste
 Application.CutCopyMode = False

Call Module1.AutoFilter_Remove

Sheets("MAIN").Select
Range("A3").Select

ActiveSheet.AutoFilterMode = False

 With Sheet1
.Range("$A$3:$V$50013").AutoFilter 1, "="& .Range("OPTSTK")
.Range("$A$3:$v$50013").AutoFilter 11, ">="& .Range("VOLUME")
.Range("$A$3:$v$50013").AutoFilter 14, ">="& .Range("CHG.INOI")
.Range("$A$3:$v$50013").AutoFilter 20, ">="& .Range("MOVE")
.Range("$A$3:$v$50013").AutoFilter 21, ">="& .Range("STRENTH")
End With

Range("A1").Select

 Sheets("CMP").Select
  Range("D2").Select
 Sheets("MAIN").Select

 'SORTING
  ActiveWorkbook.Worksheets("MAIN").AutoFilter.Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("MAIN").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
     "T3:T50013"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
     xlSortNormal
   With ActiveWorkbook.Worksheets("MAIN").AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
   End With

 Sheets("MAIN").Select
Range("P3").Select
 ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate


Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub