仅使用 VBA 宏将可见行的值从一个工作簿复制到新工作簿中

我有一些宏可以将工作表 2 从现有工作簿复制到新工作簿。此代码按其应有的方式工作，只是存在不应在新工作簿上显示的隐藏行。

这是我编写的代码，用于复制工作表并仅粘贴其值：

Dim Output As Workbook
Dim FileName As String

Set Output = Workbooks.Add
Application.DisplayAlerts = False

    ThisWorkbook.Worksheets(sourceSheetName).Cells. _
    SpecialCells(xlCellTypeVisible).Copy

Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats
FileName = ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets("Quote Questions").Range("AK545").Value & ".xls"
Output.SaveAs FileName

那么，只显示未隐藏单元格而不显示隐藏单元格的代码应该放在哪里呢？

EDIT提交答案后，代码略有更改。这是更多信息。 正在复制的工作表中的一些单元格被合并，并且我在代码行上收到错误：

ThisWorkbook.Worksheets(sourceSheetName).Cells. _
SpecialCells(xlCellTypeVisible).Copy

Saying: Cannot change part of a merged cell，所以我猜还需要添加另一块？

我不想转到工作表并手动取消合并所有单元格。

更换线路

ThisWorkbook.Worksheets("Quote & Proposal").Cells.Copy

with

ThisWorkbook.Worksheets("Quote & Proposal").Cells. _
    SpecialCells(xlCellTypeVisible).Copy

它应该有效。