Slet række startende med -

Hej
Hvordan sletter jeg rækker startende med - ? Der er mellemrum efter - inden teksten starter, f.eks. - Administration
Sub SletRaekkeJ()
    Application.ScreenUpdating = False
    SidsteRk = Range("J" & Rows.Count).End(xlUp).Row
        For I = SidsteRk To 2 Step -1
            If Range("J" & I).Value = "- *" Then
                Rows(I & ":" & I).Delete Shift:=xlUp
            End If
        Next I
End Sub