問2worksheets("名簿").Activate 最終行 = Cells(Rows.Count, 2).End(xlUp).Row Worksheets("名簿").Range(Cells(最終行 +1,2),Cells(最終行 + 1,5))Value = Worksheets("登録").Range("B7:E').Value Worksheets("登録").Range("B7:E7").ClearContents