来个大佬帮我这个代码麻烦帮我增加一句

lushsj

现在输入关键字后没有查询出来 都没标题  怎么样才能保留标题，试半天没成功
ListBox1.ColumnWidths = "70,50,230,150,50,70,"
    MRow = Sheet17.Range("GXY" & Rows.Count).End(xlUp).Row + 1
    arr = Sheet17.Range("GXY1:GYD" & MRow)
    ListBox1.List = arr
    If TextBox1.Value = "" Then
        Me.ListBox1.List = arr
    Else
        ReDim brr(1 To UBound(arr), 1 To 6)
        K = 1
        For i = 1 To UBound(arr)
            If InStr(arr(i, 1), Me.TextBox1) Or InStr(arr(i, 2), Me.TextBox1) Or InStr(arr(i, 3), Me.TextBox1) Or InStr(arr(i, 4), Me.TextBox1) Or InStr(arr(i, 6), Me.TextBox1) Then
                For j = 1 To 6
                    brr(K, j) = arr(i, j)
                Next
                K = K + 1
            End If
        Next i
        Me.ListBox1.List = brr
    End If
End Sub