Roll column forward and hard paste previous

[p45cal]

Sub RollColumn()
Dim UsdCols As Long
UsdCols = Cells(2, Columns.Count).End(xlToLeft).Column
lastRow = Cells(Rows.Count, UsdCols).End(xlUp).Row
With Range(Cells(2, UsdCols), Cells(lastRow, UsdCols))
  .Copy .Offset(, 1)
  .Value = .Value
End With
End Sub