求助，运行此代码总是显示数据类型错误，不知道哪里错了

Ssusan

求助，运行此代码总是显示数据类型错误，不知道哪里错了，麻烦各位大神帮帮忙，如何能够运行此代码
Sub 提取数据刘一()
    Dim Filename As String
        Workbooks.Open Filename:="C:\Users\Susan_OOO\Desktop\区域每日报表\刘一.xlsx"
    With Worksheets("sales")
         Worksheets("sales").Cells.Clear
    End With
    Dim arr, brr
    Dim k As String, i As Long, j As Long
    arr = Sheets("SALES").Range("A1").CurrentRegion: k = 1
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 1 To UBound(arr)
        If arr(i, 14) = "刘一" Then
            k = k + 1
            For j = 1 To UBound(arr, 2)
                brr(k, j) = arr(i, j)
            Next
        End If
    Next
    Sheets("sales").Range("a1").Resize(UBound(arr), UBound(arr, 2)) = brr
    Workbooks("刘一.xlsx").Close True
End Sub

Ssusan

请各位大神帮帮忙，VBA菜鸟，实在不会了

Ssusan

等大神出现～～

Ssusan

请各位大神帮帮忙，小妹初接触VBA，研究了几天也没研究出啥，之前写的程序也不运行，烦请各位大神帮忙。有一个“A 数量汇总”的总表，按人名把总表的两个sheet"sales"和“inventory”分别拆分到相应人名的工作薄中，人名的工作薄我都已经建好两个sheet，每天都需要更新，分表需要保留第一行和第一行的格式，人名可能有增减，希望大神们帮帮忙，附件如下，感谢感谢~~

fenglong1002

filename 是个参数 为什么还要定义类型？

fenglong1002

如果要当变量用也应该先赋值再使用吧