Kopier data til variabel ark navn

Jeg har et datofelt "A1" i ark1 som definere navnet på en ny fane hver dag, ligeledes har jeg et ark der heder ark2 indeholdende data.

Min udfordring er at jeg ikke kan se hvordan jeg med en makro smider data over i en variabel fane.

Ganske kort har jeg gjort følgende, som muligvis kan benyttes til en løsning

  Dim wksTemp As Worksheet
  Dim sTempName As String

       
    sTempName = Range("A1").Value 
    If Not SheetExists(sTempName) Then
        Set wksTemp = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        wksTemp.Name = sTempName
    End If
   
    Set wksTemp = Nothing

    Sheets("ark2").Activate


Så troede jeg man blot kunne benytte sTempName til følgende ..


    Range("A1:F351").Select
    Selection.Copy
    Sheets.sTempName.Select
    ActiveSheet.Paste
    Range("I10").Select