【VBA】数式エラー(#N/A等)をバックグラウンドで別ブックとして保存する方法

Option Explicit
Sub SaveErrorsToNewWorkbook()
    Dim wb As Workbook, ws As Worksheet, newWb As Workbook
    Dim lastRow As Long, i As Long
    
    ' エラーのあるセルの情報を格納する配列を定義
    Dim errorCells() As Variant
    ReDim errorCells(1 To 3)
    
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1") ' 対象シート名を指定
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 最終行取得
    Application.ScreenUpdating = False ' 画面更新停止
    
    For i = 1 To lastRow
        If IsError(Application.Match(ws.Cells(i, 2), Array("#N/A", "#DIV/0!", "#VALUE!"), 0)) Then ' 数式エラーの確認
            ReDim Preserve errorCells(1 To UBound(errorCells) + 3)
            errorCells(UBound(errorCells) - 2) = ws.Cells(i, 1).Value ' A列の値を格納
            errorCells(UBound(errorCells) - 1) = ws.Cells(i, 2).Value ' B列の値を格納
            errorCells(UBound(errorCells)) = ws.Cells(i, 3).Value ' C列の値を格納
        End If
    Next i
    
    Set newWb = Workbooks.Add ' 新規ブック作成
    With newWb.Sheets("Sheet1")
        .Range("A1:C1").Value = Array("Column A", "Error in Column B", "Column C") ' ヘッダー設定
        .Range("A2:A" & UBound(errorCells) \ 3).Value = Application.Transpose(Application.Index(errorCells, Evaluate("ROW(1:" & (UBound(errorCells) / 3) & ")*3-2")))
        .Range("B2:B" & UBound(errorCells) \ 3).Value = Application.Transpose(Application.Index(errorCells, Evaluate("ROW(1:" & (UBound(errorCells) / 3) & ")*3-1")))
        .Range("C2:C" & UBound(errorCells) \ 3).Value = Application.Transpose(Application.Index(errorCells, Evaluate("ROW(1:" & (UBound(errorCells) / 3) & ")*3")))
    End With
    newWb.SaveAs "ErrorReport.xlsx" ' ファイル名を指定して保存
    Application.ScreenUpdating = True ' 画面更新再開
End Sub