ようやく改修完了しました。間違いは、「D列最終行の1行下に『合計金額』と入力する」の部分でしたが、
解答ではCurrentSheetを選択し、「カスタム入力」を選びセルのアドレスで場所を指定する。
この流れでやるべきところ
CurrentSheetを選択し、「カスタム入力」を選び、さらにCurrentSheetを選択し、「カスタム入力」を選びセルのアドレスで場所を指定する。という変な流れになってました。
さらに解答では、Saved.Values(Of ExcelValue)という表記があり、この部分も現在は使用できないものだった為混乱しておりました。
ありがとうございました。やっと前へ進めます。単純な手違いに気づかず悔しいですが根気強く続けます。