Sub Button1_Click()
Dim tam, Kq(), i, j, n, Dk
ReDim Kq(1 To 1000, 1 To 10)
If Left([c2], 1) = 1 Then
Dk = [d2]
ElseIf Left([c2], 1) = 2 Then
Dk = [d2] & "*"
ElseIf Left([c2], 1) = 3 Then
Dk = "*" & [d2] & "*"
ElseIf Left([c2], 1) = 4 Then
Dk = "*" & [d2]
End If
tam = Sheet2.Range("A5:j" & Sheet2.[c10000].End(3).Row)
For i = 1 To UBound(tam, 1)
If tam(i, 3) Like Dk Then
n = n + 1
For j = 1 To 10
Kq(n, j) = tam(i, j)
Next j
End If
Next i
Sheet1.[a9:j1000].Clear
Sheet1.[a9:j1000] = Kq
Sheet2.[a6:J6].Copy
Sheet1.Range("A9:J" & n + 9).PasteSpecial Paste:=xlPasteFormats
Sheet1.[c2].Select
End Sub