UserFrom Match, Find and Edit data : ComboBox1 Change range

hello
in my userform according to combobox1.value, find data and edit them

but when i m changing

For Each C In Sheet4.Range("C61:C500").Cells

For Each C In Sheet4.Range("D61:C500").Cells

D61:D500 has number value

Private Sub ComboBox1_Change()
For Each C In Sheet4.Range("C61:C500").Cells
If C.Value <> "" Then
If ComboBox1.Value = C.Value Then
TextBox1.Value = C.Offset(0, 0).Value
TextBox2.Value = C.Offset(0, -2).Value
TextBox3.Value = C.Offset(0, 1).Value
TextBox4.Value = C.Offset(0, 2).Value
TextBox5.Value = C.Offset(0, 3).Value
TextBox6.Value = C.Offset(0, 4).Value

'MsgBox "Now you can edit."
Else
End If
Else
Exit Sub
End If
Next
End Sub