
    Dim inputWS As Worksheet
    Dim copyWS As Worksheet


        '--------------------------------------
        '@  ǂ̃V[ggw (V[gʒuςꍇ̂ŁAV[gŎwj
        '--------------------------------------
        
        Set inputWS = ThisWorkbook.Worksheets("Se[uڈꗗ")
        Set copyWS = ThisWorkbook.Worksheets("tH[}bg{")
	'ANeBuV[g
	Set Sht = ThisWorkbook.ActiveSheet

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