View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Cut and Paste macro

Un tested but should do it. Lots of errors but good try

Sub CutandPaste()
Dim i As Integer
'LRow = Range("A1").End(xlUp).Row
LRow = cells(rows.count,"a").end(xlup).row+1

For i = 9 To lr
If Cells(i, 2)< 0 Then
rows(i).Cut Destination:=cells(lrow,"a")
End If
Next i

End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"David T" wrote in message
...
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