Copy Cells To Right Of Selected Cell

I am using vlookup to get some data from one shhet in my workbook onto the front sheet
so I have a search box and the vlookup duly does as it should and gets me the data into E28:E100 and fills the cells to the right with corresponding data for each item
Now I select any cell from the first column of the search results I want and it gets pasted into the next empty cell range C4:C22 all this works a treat thanks to lots of help from mr excel. What I want to do (without any more vlookups) is pick up the corresponding cells to the right of the selected cell and paste them into the cells to the right of the pasted cell. I cant do it all at once because there is a different amount of columns between the select area and the paste area... hope this is clear
here is a snippet of code that lets me choose the cell to paste

Dim UserResponse as range
'InputBox to Ask the user to select the cell they want copying
'First direct them to the start cell in the column they are picking from
Range("E28").Select
On Error Resume Next
Set userResponse = Application.InputBox("Choose from List Below", Default:=Selection.Address, Type:=8)
On Error GoTo 0
If userResponse Is Nothing Then
End

Else
userResponse.Copy
(here I want to get the address of the cell into store so I can pick up the addresss of 2 cells to the right of it ie selected cell is E54 and I want to copy that and G54 and N24 and paste them into C8 D8 and F8 repectively)
End If