Zeile suchen und ergänzen

Private Sub CommandButton1_Click()
Dim C As Range
Dim rngBereich As Range
Dim i As Integer
With Worksheets("Eingabe Daten Prod. Auftrag")
Set rngBereich = .Range("B10:B28")
Set C = rngBereich.Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
If .Cells(C.Row, "H").Value = "" Then
.Cells(C.Row, "H").Value = TextBox2.Value
.Cells(C.Row, "I").Value = TextBox3.Value
.Cells(C.Row, "J").Value = TextBox4.Value
MsgBox "Auftrag wurde eingetragen"
For i = 1 To 4
Controls("Textbox" & i).Value = ""
Next
Else
MsgBox "Auftrag wurde schon angelegt"
End If
Else
MsgBox "Produktionsauftrag nicht gefunden"
End If
End With
End Sub