Below are two options. The first only transfers values (ignores formatting)
and clears the contents of the source range. The second option does a cut and
paste (includes formatting).

Option 1:-

Sub XXX()
With ActiveCell.Resize(1, 3)
.Offset(-1).Value = .Value
.ClearContents
End With
End Sub

Option 2:-

Sub YYY()
With ActiveCell
.Resize(1, 3).Cut .Offset(-1)
End With
End Sub

Regards,
Greg