You code will work if linked to the Worksheet_Change event of the worksheet.

Const numRowHeader = 1
Const numColStatus = 3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> numColStatus Or Target.Rows.Count > 1 Then Exit Sub

    If Target.Value = "close" Then
        Me.Rows(Target.Row).Cut
        Me.Rows(1).Offset(numRowHeader).Insert
    End If
End Sub

Before update:

After update: