Need macro to fill data

Hi, I have an excel which has three sheets.
I need a macro which should copy a range of cells from sheet "Data" to sheet "Report" as per my selection in sheet "Input"

In Sheet "Input" if the cell value is "Kishore" then it should copy J6 to J35 from sheet "Data" to sheet "Report" from B2 to B32
In Sheet "Input" if the cell value is "Krishna" then it should copy K6 to K35 from sheet "Data" to sheet "Report" from C2 to C32

Please help

Attaching the sample file.