Macro para buscar valor con botón

Me dirijo a ud (s) con mi más sincera admiración por sus aportes mi duda es un código que tengo en una hoja que deseo modificar para buscar valores en columnas y rellenar de color VERDE anexo el código lo que necesito es buscar en columna D5 valores en columna G5:G1000 y columna E5 buscar en columnas F5:F100 y G5:G1000 espero haberme explicado, soy un principiante en esto de la programación me entusiasma lo que se puede hacer con este tipo de instrucción

Por su atención mil gracias

Juan manuel galvan

Private Sub CommandButton1_Click()
'Dimensiono variables
Dim fila, conta As Integer
Dim dato As Currency
conta = 0
fila = 5

'Variable dato es igual al valor del textbox12
dato = TextBox12

'Realizo bucle para buscar datos, encontrado se aplica el formato
While Sheets("hoja1").Cells(fila, 5) <> emtpy
If Sheets("hoja1").Cells(fila, 5) = dato Then
Sheets("hoja1").Cells(fila, 5).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
TextBox1 = ActiveCell.Offset(0, 5).Value
Else
conta = 1
End If
fila = fila + 1
Wend
'Si no encontró el dato sale un mensaje
If conta = 1 Then
MsgBox ("No se encontró ID " & dato), vbInformation, "AVISO"
End If
End Sub