I need to fix my macro. It is giving me an error message.

The macro is supposed to do this: if the value in column B is less than
zero, the macro should cut the entire row and paste it into the last
available row. It should check rows 1- 199. Thank you in advance

Sub CutandPaste()


Dim i As Integer
LRow = Range("A1").End(xlUp).Row

For i = 9 To 199

If Cells(i, 2) 0 Then
EntireRow.Cut Destination:=Range("a1:a" & LRow).PasteSpecial
End If
Next i

End Sub