Excel VBA脚本复制整个工作表而不是范围

Question

我有一个包含不同部分的工作表，这些部分需要另存为单独的csvfiles。例如B3：J57将是一个csv文件，L3：T57将是另一个csv文件，依此类推。为此，我找到了一个运行良好的脚本，只是突然之间它现在将所有100万以上的空行复制到csv文件中。第57行以下的所有内容都是空的，但csvfile是在行的末尾加上十个逗号（每个范围中的列数）的行创建的。我以为我已经触发了某些东西，因此它可以看到第57行及以后的数据-尽管我不知道是什么。也许我可以在脚本中做些事情。我绝不是专家，因此感谢任何指导。谢谢。

Dim wsh As Worksheet
Set wsh = ThisWorkbook.Worksheets("Leaf Switches")

With wsh.Range("B3:J57")
.AutoFilter 1, "<>" 'Filter to get only non-blank cells
'assuming there is no blank cell within a filled row:
wsh.Range(wsh.Cells(3, 2), wsh.Cells(57, 10).End(xlDown)).Copy 'copy non-blank cells
'.AutoFilter should not cancel autofilter as it clears cutcopy mode
End With

Application.DisplayAlerts = False 'avoid from "save prompt window"
Workbooks.Add
ActiveSheet.Paste
ActiveSheet.SaveAs Filename:=ThisWorkbook.Path & "\csv\ushilas222.csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
wsh.Range("B3:J57").AutoFilter 'clear the filter
Application.DisplayAlerts = True 'set to default