Sub PasteInline()
Dim oRng As Range
Dim oIlShape As InlineShape
Dim oShape As Shape
    Set oRng = Selection.Range
    oRng.Text = ""
    oRng.Paste
    oRng.End = oRng.End + 1
    If oRng.InlineShapes.Count > 0 Then
        Set oIlShape = oRng.InlineShapes(1)
        Set oShape = oIlShape.ConvertToShape
        With oShape
            .WrapFormat.Type = wdWrapTight
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
            .Left = wdShapeRight
        End With
    End If
lbl_Exit:
    Exit Sub
err_Handler:
    Err.Clear
    GoTo lbl_Exit
End Sub