I tried that but problem with it is the copied cells will be on
a sheet that i dont know the name of

You can find the name of the sheet with Selection.Worksheet.Name or
Selection.Parent.Name.

Hth,
Merejt