=Отчет!$A$1:ИНДЕКС(Отчет!$A$1:$A$100;ПОИСКПОЗ(ПОВТОР("z";255);Отчет!$A$1:$A$100))

 CommandButton1_Click()
Dim k As Integer
Dim el As Node
Dim strNod As String
Dim nds() As String
For Each el In TreeView1.Nodes
 If el.Checked = True Then
k = k + 1
 strNod = el.Text
 strNod = Left(strNod, InStr(1, el.Text, " - ", 1))
  ReDim Preserve nds(k)
 nds(k) = "'" & strNod
 End If
Next

Worksheets("выгрузка 1С").Activate

ActiveSheet.Range("a1:E1").AutoFilter
ActiveSheet.Range("a1:E1").AutoFilter Field:=4, Criteria1:=Array(nds), Operator:=xlFilterValues

End Sub

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Static s As String
Static k As Integer
'On Error Resume Next
Dim el As Node, ile%: ile = 0
For Each el In TreeView1.Nodes
 If el.Checked = True Then ile = ile + 1
Next

Dim strNod As String

strNod = Node.Text
'выделяю номер счета
strNod = Left(strNod, InStr(1, Node.Text, " - ", 1))
s = s + strNod
k = k + 1
'strNod = Right(Node.Text, 1, Len(Node.Text) - 1)
Dim nds() As String
 ReDim Preserve nds(k)
 If k = 1 Then

Worksheets("выгрузка 1С").Activate
ActiveSheet.Range("a1:E1").AutoFilter Field:=4

' s = Left(s, Len(s) - 1)
'в выгрузке свой формат '01 - с кавычкой
s = "'" & s
nds = Split(s)

End If
ActiveSheet.Range("a1:h1").AutoFilter Field:=4, Criteria1:=Array(nds), Operator:=xlFilterValues

'ActiveSheet.Range("a1:h1").AutoFilter Field:=4, Criteria1:=.Keys
End Sub