VBA/Excel/Access/Word/Excel/Cell Copy

Copy data from one sheet in a range to another sheet

 
Sub Copy_Sheet()
    Dim myWorksheet As Worksheet
    Dim myWorksheetName As String
        myWorksheetName = "MyName"
        Sheets.Add.Name = myWorksheetName
        Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)
        Sheets("Sheet1").Range("A1:A5").Copy _
            Sheets(myWorksheetName).Range("A1")
End Sub