Error While Pasting Data Into Another Sheet

I am trying to create a macro that will take inputs entered into a range of cells in 1 worksheet and then paste it into another range on another sheet. The target range is selected based on a condition and once the values have been pasted then the target range should be locked.

I have been trying the following code but keep getting the Run-time error 1004 telling me that the PasteSpecial method of range class has failed. Can some one explain what I may be doing incorrectly?

Code:

Dim i As String
i = Range("Month").Value

Select Case i

Case "January"
Sheets("INPUT SHEET").Select
Range("Input_In").Select
Selection.Copy

[Code] .........