Add a row and delete a row by searching a specific text with VBA

Hi,

I am trying to make a VBA code that do this macro:

- Search for value 1 in column A and insert a row to that specific row (Selection.Insert Shift:=xlDown)

After this macro I need also a macro that:

- Search for value -1 in column A and delete one row before (like if the value -1 in row A is on the row 33 i would like to delete a row 32)
but if the row contains anything (numbers or text I mean any value) then Msg would pop up "Cant delete row, row contains value"

Thanks in advance:
B.