Сортировка и удаление лишних строк

Dim n, k As Integer
 
Private Sub CommandButton1_Click()
k = 1
Worksheets("продажи").Activate
    Range("A3").Select
    Selection.End(xlDown).Select
    endrow = ActiveCell.Row
    Range("A3:2" & endrow).Clear
Do
k = k + 1
Loop Until Worksheets(3).Cells(k, 1) = ""
For i = 2 To n - 1
If TextBox1.Text = Worksheets(1).Cells(i, 3) Then
Worksheets(3).Cells(k, 1) = Worksheets(1).Cells(i, 1)
Worksheets(3).Cells(k, 1).Borders.Color = vbBlack
Worksheets(3).Cells(k, 2) = CInt(Worksheets(1).Cells(i, 5)) * CInt(Worksheets(1).Cells(i, 6))
Worksheets(3).Cells(k, 2).Borders.Color = vbBlack
k = k + 1
End If
Next i
Worksheets("продажи").Activate
End Sub

Sub MMM()
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A1000").Rows.Hidden = False
For i = 1 To LR
If Cstr(Cells(i, 3).Value )= TextBox1.Text Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Sub MMM()
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A1000").Rows.Hidden = False
For i = 1 To LR
If Cstr(Cells(i, 3).Value )<> TextBox1.Text Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Sub NNN()
Range("A2:A1000").Rows.Hidden = False
End sub