Macro para pegar valores

¡ Hola ! Tengo la siguiente macro y no se como hacerla funcionar ya que es la primera que hago.
en C2 tengo el numero de hoja(equivale al nombre) de donde quiero pegar en la celda de B2, el valor que tengo en la celda E2


Sub Macro1()
'
' Macro1 Macro
'

'
If C2 = 0 Then
End If
If C2 = 1 Then
Range("E2").Select
Selection.Copy
Sheets("1").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If C2 = 2 Then
Range("E2").Select
Selection.Copy
Sheets("2").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If C2 = 3 Then
Range("E2").Select
Selection.Copy
Sheets("3").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If C2 = 3 Then
Range("E2").Select
Selection.Copy
Sheets("3").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub