VBA Code not working

Dear Experts,

My sincere thanks for taking your time for this. This will help me learn more.

I have learned VBA Coding recently and trying to write a code for a need.

Need is --

Depending upon the value in cell B2, values in c3, c4 and c5 should change automatically.
B2 is in drop down list.
It should by dynamic, whenever "B2" changes, C, c4, c5 should change

I wrote the code in the "This Workbook" in the VBA window. Unfortunately, the code is not working. Can you please help me understand where did I make the mistake here?

Code is -

Private Sub WorkSheet_Change(ByVal Target As Range)

Whrosksheets("Sheet1").Select
Whrosksheets("Sheet1").Range("B2").Value = Reason
If Target.Address = "$B$2" Then
If Reason = "Magesh" Then
Whrosksheets("Sheet1").Range("C3").Value = Whrosksheets("Sheet1").Range("J3").Value
Whrosksheets("Sheet1").Range("C4").Value = Whrosksheets("Sheet1").Range("J4").Value
Whrosksheets("Sheet1").Range("C5").Value = Whrosksheets("Sheet1").Range("J5").Value
Else
If Reason = "Suresh" Then
Whrosksheets("Sheet1").Range("C3").Value = Whrosksheets("Sheet1").Range("K3").Value
Whrosksheets("Sheet1").Range("C4").Value = Whrosksheets("Sheet1").Range("K4").Value
Whrosksheets("Sheet1").Range("C5").Value = Whrosksheets("Sheet1").Range("K5").Value
Else
If Reason = "Ramesh" Then
Whrosksheets("Sheet1").Range("C3").Value = Whrosksheets("Sheet1").Range("L3").Value
Whrosksheets("Sheet1").Range("C4").Value = Whrosksheets("Sheet1").Range("L4").Value
Whrosksheets("Sheet1").Range("C5").Value = Whrosksheets("Sheet1").Range("L5").Value
Else
End If

End If

End If
Else
End If
End Sub

Fantastic, its one of my mistake. After removing type error, I pasted the codes in specific worksheet window, and it started working. My sincere thanks to you!

Thanks again!. Great help for learning!