Sub dsd()
Dim i As Long, LR As Long
Dim cell As Range
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = LR To 2 Step -1
    If Left(Cells(i, 1), 3) <> " - " And (Left(Cells(i - 1, 1), 3) = " - " Or Left(Cells(i - 1, 1), 3) <> " - ") Then
    Cells(i - 1, 1) = Cells(i - 1, 1) & Chr(10) & Cells(i, 1)
    If cell Is Nothing Then
        Set cell = Cells(i, 1)
    Else
        Set cell = Union(cell, Cells(i, 1))
        End If
    End If
Next i
    If Not cell Is Nothing Then cell.EntireRow.Delete
End Sub