Input Box query

I'm working on a macro to automate a process within excel.
Part of the macro involves the user selecting a sheet (idmap). Then selecting column B . Then I've added an input box for the user to enter an id number. After this step I want this number in column B to be selected on the sheet and a '1' entered 2 columns to the right (column D) of this id number. I've added some of the code so you can get a better idea of what I am trying to achieve.

Sheets("idmap").Select
Range("D2:D5000").ClearContents
intorg_id = InputBox("Enter the org_id")
Cells.Find(What:="intorg_id", LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate


Regards

Adrian