Excel stuff with sausages

gistfile1.txt

sub copypastesomesausagestuff()

'Need a worksheet
dim anewsheet as worksheet
set anewsheet = workbooks("filename.xlsm").worksheets.add
anewsheet.name = "sheetname" 'Probably want a function here to give it a dynamic name

'Copy and paste the things.  Make sure to update ranges.
range("A1:B5").copy workbooks("filename.xlsm").worksheets(anewsheet).range("A1:B5") 'Note the anewsheet reference here is the variable from above.

'This deselects the copied stuff so your clipboard is good.
application.cutcopymode = false

end sub