Need to copy tab name along with rows copied to different sheet

[JTC1234]

I need to copy the name of the tab into column "A" for data i'm extracting to another sheet within the workbook.

 

[Roncondor]

dim N as string
N = ActiveSheet.Name

Then when you are in the new workbook

Range ("A1").value = N