Modificar macro para colorear rango celdas

Mi duda es como modificar el siguiente código que anexo, mi hoja tiene un botón que activa un formulario para buscar un valor en columna DE y al encontrarlo, click en botón aceptar y solo me pinta columna DE, para que lo realice hasta la F, en que línea se da la instrucción. No soy un experto en esto pero me apasiona aprender de ustedes mi más sincera admiración

Gracias

Juan manuel

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

'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, 4) <> emtpy
If Sheets("hoja1").Cells(fila, 4) = dato Then
Sheets("hoja1").Cells(fila, 4).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
TextBox1 = ActiveCell.Offset(0, 1).Value
Else
conta = 1
End If
fila = fila + 1
Wend
'Si no encontró el dato sale un mensaje
If conta = 1 Then
MsgBox ("Valor no encontrado " & dato), vbInformation, "AVISO"
End If
End Sub