VBA to move duplicated shape object into a different named layer.

I have the following:

Dim sweepLayer As Layer

For Each sweepLayer In ActiveDocument.ActivePage.Layers
  If sweepLayer.name = "RepMap" Then
    changedLayer = True
    Set sr = sweepLayer.Shapes
    Exit For
  End If
Next sweepLayer

For Each shapex In sr


  ' Here is where I do not know how to move the duplicated shape into some other Layer, example

  ' would be Layer named "DiffLayer"

Next shapex