File size increasing

[JoeyGaspard]

Hi all, with some of the members help, I was able to create a worksheet that does exactly what I need, so thanks to all that helped! Now, my problem is, every time I run the macro, my file size increases dramatically! how can I fix this? the code is below, it is a compilation for several different functions:

Sub PasteSpecial_ValuesOnly()

'Clear UploadData Cells
Worksheets("PayrollData").Select
    Range("A2:F50").Select
    Selection.ClearContents
   
'Import Payroll Data
   Dim Ws As Worksheet
  
   Set Ws = Worksheets("PayrollData")
   With Worksheets("PayrollReportImport")
      .Range("A1").AutoFilter 1, "12-*"
      .AutoFilter.Range.Offset(1).EntireRow.Copy Ws.Range("A" & Rows.Count).End(xlUp).Offset(1)
      .AutoFilterMode = False
   End With
 
 
'ClearGeneralJournal Macro
    Worksheets("GeneralJournal").Select
    Range("B17:eek:54").Select
    Selection.Clear

'Copy A Range of Data
  Worksheets("UploadData").Range("A2:M21").Copy

'PasteSpecial Values Only
  Worksheets("GeneralJournal").Range("B17").PasteSpecial Paste:=xlPasteValues

'Clear Clipboard
  Application.CutCopyMode = False
 
'Deletes blank rows if cells in Column B are empty
  On Error Resume Next
    Worksheets("GeneralJournal").Select
    Range("B17:B54").Select
    Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("B17").Select
End Sub

TIA for any help!

 

[DanteAmor]

Range("B17:eek:54")

In that line you have additional ":"

But that's not the problem.
__________________________________________________________________________
Your macro has no problems. Do you have formulas on your sheets?

Maybe you should copy the data from each sheet into a new book.
Create a new book, in the new book create the sheets with the names you have in the current book.
Select a sheet of the current book, select only the range of data, copy the data and paste in the corresponding sheet of the new book and so on for each of the sheets.
Try the macro again.

 

[Michael M]

Check both worksheets for usedrange size !
Press CTRL + END and see where the cursor gos to.....if it waaaay down the worksheet, you will need to reset the used range !!

 

[JoeyGaspard]

Check both worksheets for usedrange size !
Press CTRL + END and see where the cursor gos to.....if it waaaay down the worksheet, you will need to reset the used range !!

Michael, thank you! that was the problem, for some reason one of my tables had over 1m rows, Again, thank you so much!

 

[Michael M]

Glad to help...and thanks for the feedback..?