Macro to move cell down a row based on criteria

Hi all, I would like a simple macro that would actually move a cell based on criteria. In my case it would be:

In row A, if a cell starts with 'Agent Name' then that cell needs to move down one cell replacing the contents of that cell...

Hope that makes sense?

How many rows ?

Dim x As Integer
Dim y As Integer

x = 1
y = 100

For x = 1 To 100
If Left(Cells(y, 1), 10) = "Agent Name" Then
    Cells(y + 1, 1) = Cells(y, 1)
    Cells(y, 1) = vbNullString
End If
y = y - 1
Next x

End Sub

I'd go with something like that.