A range that copies data from a range in a sheet to another sheet
Dim Myworksheet Asworksheet
Dim Myworksheetname as String
Myworksheetname = "Mytablename"
Sheets.Add.Name = Myworksheetname
Sheets (Myworksheetname). Move after:=sheets (Sheets.count)
Sheets ("Sheet1"). Range ("B1:b27"). Copy Sheets (myworksheetname). Range ("A1")
Sheets.Add.Name = Myworksheetname is used to add sheet with the name Myworksheetname in the Sheets collection;
Sheets (Myworksheetname). Move after:=sheets (sheets.count) moves the sheet that you just added to the back of the last element in the Sheets collection
Finally, the Range.Copy method copies the data to the corresponding cells in the new table.
The above code is used in a VBA environment.