Your first problem is
Dim oSheet As Excel.Worksheet = Nothing
, before using
oSheet
, you must set it to the sheet you want to copy.
In
oSheet.Sheets1.Copy(After:=oSheet.Sheets2)
oSheet
os not a Sheet and
Sheets1
and
Sheets2
do not exist.
There is an easy way to get a working macro for anything you can do on keyboard/mouse: Ask Excel to record a new macro and then open VBA editor to see the source code, you only have to adapt to your real usage.
Nota: your question is rather confuse, remember we don't see your screen and we don't have your WorkBook.