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

This worked for me:

Sub Update()

Dim X As Double, Y As Double, Z As Double

X = 1
Z = 1

Do While Range("N6").Offset(X, 0).Value <> ""

    If Range("N6").Offset(X, 0).Value < 0 Then
        
        For Y = 1 To 5
            Range("N6").Offset(Z, Y).Value = Range("I6").Offset(X, Y).Value
        Next Y
        
        Z = Z + 1
        
    End If
    
X = X + 1

Loop

End Sub

See also the attached file.