ワークシートのコピー

  'Sheet1シートの前に「data」シートをコピー
  Worksheets("data").Copy Before:=Worksheets("Sheet1")