error en el metodo range del objeto

[lalomv]

Buenas

tengo un problema al querer programar un boton de buscar soy nuevo en esto entonces lo poco que se lo e intentado utlizar para programar el boton pero me sale el error en el metodo range del objeto y la verdad estoy en ceros queria saver si me podrian ayudar ya que es para una tarea que debo de entrgar el lunes y no se como resolverlo

el codigo que tengo es el siguiente si alguien me podria ayudar a completarlo ya que siento que estoy cercas pero algo se me esta pasando

Private Sub cmbbuscar_Click()

Dim Fila As Long
Dim ws As Worksheet
Set ws = Worksheets(1)

Fila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row - 1


For i = 2 To Fila



If Range("bi").Value = txt1.Text Then

Range("Ci").Value = Me.txt3.Value
Range("di").Value = Me.txt2.Value

Exit Sub
End If
Next i