删除列中的所有值，除非等于输入的值

Question

我在sheet1中有一个带有74k行数据的excel工作簿。

已将Aach行分配给15个代理名称之一。

每天早上我都想打开工作表并查看最新状态，并从工作表的最后一个状态看到我的名字。

我的名字输入了userform1.text box1。

该列中的所有其他名称将被删除，设置为空，以备新的一天。

我有一个宏正在删除输入的名称，但我想执行一个操作，我将输入我的名字，它将删除所有其他14个代理人名称，并输入我的姓名。

现有的宏我想改变：

CT & "L" IS MY COLUMN NAME
Private Sub CommandButton1_Click()
     row_number = 1
     Do
     DoEvents
     row_number=row_number + 1
     CT = Sheet1.Range("L"&row_number)
     If InStr(CT,UserForm1.TextBox1.Text) >= 1 Then
     Sheet1.Rows(row_number & ":" & row_number).delete
     row_number = row_number - 1
     End If
     Loop Until CT = ""
     End Sub