Indsætte i ny kolonne ved siden af valgt kolonne

Hej igen,

Nu har jeg brug for at indsætte resultatet af en operation i en ny kolonne ved siden af den jeg har udført operationen i.

Følgende kode tilføjer en ny kolonne ved siden af kolonne D:
Columns("E:E").Select
Selection.Insert Shift:=xlToRight

Jeg bruger denne kode til at udføre operationen på en given selection:
Sub InputRange()
    Dim MyRange As Range
    Dim text As String
   
    On Error Resume Next
   
    Set MyRange = Application.InputBox(Prompt:="Please select range", _
    Title:="Select range", Type:=8)
   
    text = Application.InputBox(Prompt:="Please type text to add", _
    Title:="Type text")
       
    If (MyRange Is Nothing) = False Then
        For Each rngCell In MyRange.Cells
            If IsEmpty(rngCell.Value) = False Then
                rngCell.Value = CStr(rngCell.Value) & text
            End If
        Next rngCell
    End If
End Sub

Det er givet, at kun een kolonne vælges som range. Men jeg vil gerne have resultatet ud i en kolonne ved siden af den valgte.

Any ideas?