Auto Fill Macro with Input Box

[Parra]

I have the macro below that looks at the sheet name in column A and copies what is in Column B to the sheet that is column A.

Ex
Col A Col B
Sheet1 5000

So in Sheet 1 it adds 5000

The problem is I want the cell I want the data to go to change. This means when I want it to go somewhere else I have to go into the macro and change the target cell.

Can someone please help me create an input box where the box would appear and I would just enter the the column and row and the macro would then run.

Here is the target cell for this week
.Cells(21, 15)

Thanks

Sub Macro1()


myRow = 1

Do Until Cells(myRow, 1) = ""
myName = Cells(myRow, 1)
Sheets("" & myName).Cells(21, 15) = Cells(myRow, 2)
myRow = myRow + 1
Loop

'
End Sub

 

[Qroozn]

targetcell = inputbox ("enter target cell here")