Macro copiar datos en hoja

Hola, me podrías ayudar, en la siguiente macro me pone los datos que tengo en la hoja"total diferencias" en una llamada con el testo que tengo en "F2" hasta hay bien, pero cuendo vuelvo a pegar otro dato y cambio el valor de "F2" pelo pega en esa nueva pestaña y en la anterior también y lo que quiero es que cada vez que pegue lo haga en la pestaña que coincide con la cantidad que hay en "F2" que sera el nombre de la pestaña correspondiente.
Gracias
Sub COPIALOSDATOSENUNAHOJACONLAFECHADEF2()
Dim hoja As String
Sheets("TOTAL DIFERENCIAS").Select
hoja = Range("F2").Value
Range("A2:G500").Select
Selection.Copy
Range("A2").Select
Sheets(hoja).Select
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False