
    Dim inputWS As Worksheet
    Dim copyWS As Worksheet

   '--------------------------------------
   '@  ǂ̃V[ggV[gŎw
   '--------------------------------------
    Set inputWS = ThisWorkbook.Worksheets("Se[uڈꗗ")
    Set copyWS = ThisWorkbook.Worksheets("tH[}bg{")
    Set Sht = ThisWorkbook.ActiveSheet	   'ANeBuV[g

    copyWS.Copy After:=Worksheets(Worksheets.Count)
    Worksheets(sheet_cnt).Range("A" & out_idx) = inputWS.Range("D" & inp_idx).Text
