Ayuda con macro para buscar datos

Hola buen día, mi problema es que tengo una matriz de 4000 números aleatorios entre 1 y 0, y deseo construir una macro que pueda seleccionar dichos números, indicándole en que fila y columna empiece a contar, de cuantas cifras sean estos números y menores a que numero, anoto el sig procedimiento para que me puedan ayudar ya que para la condición de buscar 2 o más cifras y poderlos concatenar ya no logro entender.
private Sub CommandButton_click()
c=Range("cifras")
n=Range("num")
m=Range("menor")
cc=Range("col num")
ff=("fil num")
if n=" " or c =" " or m=" " or cc=" " or ff= " " Then
MsgBox("Complete todas las variables")
Go to finalizar
End if
valini = 11
if c=1 Then
For a =1 to n
X= Cells(ff,cc)value
if x >m Then
For b= 11 to Valini
if x= cells(126,b) Value Then dif= 1
End if
Next b
if dif 1 Then
Cells(1265,valini).value=x
valini=valini+1
End if
'aqui es donde se debe evaluar para concatenar las cifras '
'es donde ya no logro seguir , por su ayuda de antemano , Muchas Gracias'