Pega datos en otra hoja

Hola amigo, me podrías ayudar por favor con esto que necesito: que los datos los pegue solo en la hoja con el nombre que hay en "B1" y lo que me ocurre es que los datos me los pega en todas las hojas, es decir he creado una hoja con las cantidades '01, 02, 03, etc. Yo pongo en "B1" 01 y pega los datos bien pero si en "B! Pongo 02 los datos los pega en 01 y en 02 y yo necesito que solo los pegue en su hoja, me podrías ayudar por favor y decirme que tengo que poner en la macro o si necesito cambiar más cosas para que haga eso que necesito que solo se peguen los datos en su hoja y no modifique las demás a no ser que le vuelva a poner el numero de su hoja para modificar esa hoja en concreto,
Muchas gracias de amigo.
Dim hoja As String
Sheets("RESUMEN").Select
hoja = Range("B1").Value
Range("A1:A20").Select
Selection.Copy
Range("A1").Select
Sheets(hoja).Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub