Sub tata()
Dim i&, j&, n&, k&, r%, x$, v%()
ReDim v(1 To 7 ^ 6, 1 To 6)
k = 1
For i = 0 To 7 ^ 6 - 1
n = i
v(k, 6) = n Mod 7
x = v(k, 6)
For j = 5 To 1 Step -1: n = n \ 7: r = n Mod 7: v(k, j) = r: x = r & x: Next
k = k - Not x Like "*0[1-6]*"
Next
[A1].Resize(k - 1, 6).Value = v
End Sub