I believe that you can do this much more simply.

Your Down sub can be

Sub Down_Service1()
    Range("C9") = Range("C9") - 1
End Sub
On the Sheet1 tab in the VBA editor add the following. You will need to create the other up and down versions of this.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetRow As Integer
If Application.CountIf(Sheets("Sheet2").Columns(1), TextBox1.Value) = 1 Then
    TargetRow = Sheets("Sheet2").Columns(1).Find(TextBox1.Value).Row
Else
    MsgBox "Unknown item"
    Exit Sub
End If
'repeat the next three lines to deal with the remaining columns
If Target.Address = "$C$9" Then
    Sheets("Sheet2").Cells(TargetRow, 2) = Target
End If




End Sub
I hope that this gets you started.