Excel 2007 : Moving a Range Based on Variable Text Value

Hello,

I am trying to laterally move User IDs from Column A Column R.

Daily, the Users change (User ID: 7000, User ID: 7800), however they always start with the phrase "User ID: ".

The row location of the User IDs also change, but they are always in Column A.

Here is the code I tried. When I run it, it does absolutely nothing:

Sub MoveOver()
  For Each Cell In Range("A:A")
    If Cell.Value = ("User ID*") Then Cell.Offset(0, 17) = Cell
    Next
End Sub

Any help would be appreciated. Thank you, in advance.