Remove lines based on cell value (remove lines in range, not entire row)

Hi,

I would like to find VBA code, which should remove cells in range "J-N" based on positive value in column N and Shift cells out. As result there will be listed only items with negative value).

Thanks in advance.