Ayuda con Macro

Hola Grupo

tengo un pequeño problemilla. Tengo dos hojas
1- De Consulta y la otra
1- es la matriz
Tengo una macro que me trae la informacion de la matriz y
la trae perfectamente, pero la informacion que me trae es
solamente la de la fila que yo que pongo en el codigo, yo
quiero que me traiga si en la pantalla de consulta yo
pongo un numero X que ese numero lo busque en la pantalla
matriz y me traiga la informacion. Como establesco esa
consulta en mi macro?

les pongo mi macro

Sub Copias()
AWK = ActiveWorkbook.Name

Range("F15:F48").Select
Selection.ClearContents
Application.ScreenUpdating = False
Sheets("Pantalla").Select

If Range("F15").Value = "" Then
drw = 33
Else
If Range("F16").Value = "" Then
drw = 34
Else
Range("F15").Select
Selection.End(xlDown).Select
drw = ActiveCell.Row
End If
End If

Range("F15").ClearContents


'If Range("D6Pantalla").Value = "" Then


Sheets("Procedimiento").Select

For i = 28 To 146

Sheets("Procedimiento").Select
If Cells(5, i).Value = "1" Then ' EL 14 ES LA COLUMNA
N DE EXCEL

msg = Cells(4, i).Value ' EL 3 ES LA COLUMNA C LA
CUAL PONE LA INFROMACION QUE BUSCO

Sheets("Pantalla").Select

If Range("F15").Value = "" Then
wrw = 15
Else
If Range("F16").Value = "" Then
wrw = 16
Else
Range("F15").Select
Selection.End(xlDown).Select
wrw = ActiveCell.Row + 1
End If
End If

Cells(wrw, 6).Value = msg

End If

Next i

If Sheets("Pantalla").Range("F15").Value <> "" Then
Sheets("Pantalla").CommandButton4.BackColor = RGB
(245, 3, 3)
Else
Sheets("Pantalla").CommandButton4.BackColor = RGB
(115, 195, 3)
End If

Sheets("Pantalla").Select

Range("g31").Select

End Sub