Delete row if Macro

[doriannjeshi]

Hi,
I need to delete the row if is present "-"

Book2
	A	B	C	D	E	F
1	A	B	C	D	E	F
2	a-bori	1			-3	1
3	1	1	1	1	1	1
4	1	1	1	1	1	1
5	1	1	1	1	1	1
6	1	1	1		1	1
7	a-bori	1	1	1	1
8	1	1	1	1	1	1
9	1	1	1	-6		1
10	1	1	1	1
11	a-bori	1	1	1	1	1
12	1	1		1	1	1
13	1	1	1	1	1	1
14	1	1	1		1	1
sheet1

 

[doriannjeshi]

only in column A

 

[MARK858]

If the data is consistent with what you have posted you can use the same method as in your other post

Sub Doria2()
   Application.ScreenUpdating = False

    With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)

        .AutoFilter 1, "*-*"
        
        On Error Resume Next
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        
        On Error GoTo 0
        .AutoFilter
       
    End With

    Application.ScreenUpdating = True
End Sub