Auto copy cell x columns to the right after selection request from inputbox

evening vdongen
Try this code

Set srng = Application.InputBox(prompt:="Select Task To Get copy Status", Left:=30, Top:=80, Type:=8)
With srng
.Offset(0, 20).Value = srng.Value
End With