Добрый день.
Макрос удаления стоп1,2 со сдвигом:
Option Explicit
Public Sub DeleteStops()
With ActiveSheet
Dim ArrayWithStops As Range
Dim rCell As Range
Dim EndRow As Long
EndRow = .Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row ' номер последней строки в A ' число строк в столбце данных
Set ArrayWithStops = .Range(.Cells(2, 2), .Cells(EndRow, 2))
For Each rCell In ArrayWithStops.Cells
If rCell.Text Like "стоп1" Then
rCell.Delete xlShiftUp
ElseIf rCell.Text Like "стоп2" Then
rCell.Delete xlShiftUp
Else
End If
Next rCell
End With
End Sub
Подробнее в: