Sub FillRight()


    Dim sCell As Range
    Set sCell = ActiveCell

    Dim cCol As Integer
    cCol = Application.InputBox(prompt:="How many to copy", Type:=1)
    
    
    Dim eCell As Range
    Set eCell = ActiveCell.Offset(0, cCol)


    Range(sCell, eCell).FillRight


 End Sub
The above code works as should.

What I would like to do is have the input box allow for a column instead.
Say I would like to go from activecell to col M.
I tried using "strings & type 2" but cannot get it to work.