Evaluar datos en un rango, vba

A los usuarios que no finalizan las consultas se ha decidido dejar de responderles.
Como tenés 1 sola consulta realizada, contás como se dice en Derecho del 'beneficio de la duda' (quizás no sabías que debías finalizar ;(
Por tal motivo haré 1 excepción dándote 1 nueva oportunidad, y aquí va una rutina que te devolverá el valor buscado.
Sub matriciando()
'desarrollada por Elsamatilde el 24/02/09
largo = ActiveSheet.Range("G2") 'AJUSTAR UBICACIÓN DEL DATO LARGO
ancho = ActiveSheet.Range("G3") 'AJUSTAR UBICACIÓN DEL DATO ANCHO
'la tabla se ubica a partir de A1
Set busco = ActiveSheet.Range("A1", Cells(Range("A65535").End(xlUp).Row, 1)).Find(largo, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
Set busco2 = ActiveSheet.Range("A1", Cells(1, Range("IV1").End(xlToLeft).Column)).Find(ancho, LookIn:=xlValues, LookAt:=xlWhole)
dato = Cells(busco.Row, busco2.Column).Value
MsgBox dato 'OPCIONAL

Hola Elsa, de verdad que no sabia lo de las reglas de la página. <Gracias por contestarme...
Ahora tu idea m ayudo en unas cosas, porque luego que hice la pregunte seguí intentándolo y ya me corre cuando lo ejecuto desde visual basic, pero se supone que a través de mi botón creado, al hacer click en esa página debería arrojarme el valor ahí mismo y no abrir la pantalla de visual basic, ¿qué crees pas?
Sera que me falta algo, ¿no se?
Esto ya parece una segunda pregunta, pero por favor ayudame y muchas gracias!

Private Sub precio_Click()
LargoUsu = Worksheets("hoja2").Range("a6")
DiameterUsu = Worksheets("hoja2").Range("b6")
For i = 7 To 32
largo = Worksheets("hoja1").Cells(i, 1).Value
If largo = LargoUsu Then
For j = 2 To 11
diametro = Worksheets("hoja1").Cells(5, j).Value
If diametro = DiameterUsu Then
For Each k In Worksheets("hoja1").Range("precios").Value
If k = Worksheets("hoja1").Cells(i, j) Then
Worksheets("hoja2").Range("c6").Value = k
End If
Next k
End If
Next j
End If
Next i
If k = "" Then
MsgBox "no hay disponibilidad de precios"
End If
End Sub
Esto fue lo que hice... pero no se que faltara para que al darle click al botón que tengo en mi hoja de excel, coloque el valor en la celda sin que se vaya a la hoja de visual basic... también hace todo el recorrido, y eso que solo introduzco datos que están en las primeras filas y columnas, así que como hago para cuando coincidan los datos de largo y ancho, busque el precio que coincida y ya...
Por faaa, gracias

Solicítame el ejemplo a mi correo (lo encontrarás en mi sitio), allí verás cómo y dónde coloqué el botón y la rutina.
No olvides recordarme tu alias o motivo de consulta
Sdos