Adam,

Just adapting your code

For n = 2 To FinalRow
If (Range("A" & n).Value) = 0 Then
Rows(n & ":" & n).Cut
Rows("2:2").Insert Shift:=xlDown
End If
Next n

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Adam" wrote in message
...
I have never written Excel macros or written in Visual
Basic before. I am trying to write a macro that will
organize my spreadsheet into a certain order. In order
to do that, I need to be able to search for a row that
has a 0 in the first column cut that row to the beginning
of my file. Here is what I have, but it isn't working.

For n = 2 To FinalRow
If (Range("A" & n).Value) = 0 Then
Rows("n:n").Select
Selection.Cut
Rows("2:2").Select
Selection.Insert Shift:=xlDown
End If
Next n

Thank you