here are some changes I would suggest:
Set ws0 = wb.ActiveSheet
and
Select Case ws0.Range("G3").name
and also instead of using the copy command why not just assign values directly, for example:
ws1.range(ws1.cells(1, 20), ws1.cells(10, 2)).value= ws0.range(ws0.cells(1, 1), ws0.cells(10, 1)).value