User Prompt For Cell

[canyon289]

Hi,
I'm trying to write a macro and at one point I want it to stop at a user selected cell then delete all the values in the column below that cell and the same for the column to the left.

This is the code I've tried to use to allow the user to select the cell, it comes up with with an input box but fails stating

"method 'range' of object '_global' failed"\

    Dim sCell As String
    sCell = Range(Application.InputBox(Prompt:="Pick the Cell", Type:=8)).Value
    MsgBox sCell

This should be really simple but it's not working and I'm pulling my hair out. Thanks in advance.

Also attached is a graphic showing what I'm trying to do.