問2

worksheets("名簿").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