I want the Active Cell to equal the cell above. How do I write that? Please Help

[cwhite2300]

I am trying to write a macro that will set the value of the active cell to that of the row above. My output is similar to that below:

ID # Person
Person
Person
Person

ID# Person
Person

What I want to do is copy and paste the ID # as long as there is a "Person" in the adjacent field. My formula right now is:

If Not IsEmpty(ActiveCell.Offset(0,2)) Then
"this is the same as the row above"
Else
"move on to the next block"

 

[John Davis]

Maybe:

Sub cwhite2300()
If Not IsEmpty(ActiveCell.Offset(, 2)) Then
    ActiveCell.Value = ActiveCell.Offset(-1).Value
Else
    ActiveCell.Offset(1).Select
End If
End Sub