尝试合并表格数据时出现应用程序定义的错误

我试图使用几个解决方法和其他post，但似乎无法find一种方法来回答我遇到的错误。

我正在使用Excel 2013，并试图从表中获取信息来整合它。 我也尝试将表格数据复制到另一个工作表上，希望这可以使整合更容易。 不过，我仍然有上面的相同的错误。

理想情况下，我想抓取过滤的表格信息并合并。 它需要被合并的原因是它将有多个表中的状态值，我需要看到基于状态（和其他variables）的几个类别的总和。

请帮我弄清楚为什么代码不断在代码的巩固片断。

Private Sub ComboBox2_Change() Dim Issuer As String Dim FirstRow As Long Dim LastRow As Long Dim LastCol As Long Dim ws1 As Worksheet Dim ws2 As Worksheet Dim MyArray As Variant Set ws1 = Worksheets("Data") Set ws2 = Worksheets("ChartData") Issuer = ws2.Range("IssuerNum").Value 'Worksheets("Data").ListObjects("Table1").Range.AutoFilter.ShowAllData If Issuer = "All" Then Worksheets("Data").ListObjects("Table1").Range.AutoFilter _ Field:=1, Criteria1:="<>", Operator:=xlFilterValues LastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row FirstRow = ws1.Cells(2, 1).Row Else ws1.ListObjects("Table1").Range.AutoFilter _ Field:=1, Criteria1:=Issuer, Operator:=xlFilterValues With ws1.ListObjects("Table1").AutoFilter.Range.SpecialCells(xlCellTypeVisible) LastRow = .Areas(.Areas.Count).Row + .Areas(.Areas.Count).Rows.Count - 1 End With FirstRow = ws1.ListObjects("Table1").AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 2).Row End If ws1.Range(ws1.Cells(FirstRow, 3), ws1.Cells(LastRow, 9)).Select Set MyArray = Selection 'Add in consolidate here to set up chart data If ws2.Range("RadioSel").Value = 1 Then ws2.Range("A2").Consolidate _ Sources:=MyArray.Address(ReferenceStyle:=xlR1C1), _ Function:=xlSum, LeftColumn:=True End Sub()