列内の後続セルを連結する - Excel vba

Question

誰かがVBAを使用して以下の問題を解決するのに手伝ってもらえますか？

セルA7、A8、B8、A9を連結してA7に貼り付けたいとします。同様にA10、A11、A12、C12、A13、A14を連結し、A10にペーストします。 A15、A16を連結してA15に貼り付けます。 A6とA17を元の値と同じに保ちます。

何か助けていただければ幸いです。ありがとう。 worksheet sample

Answer 1

方法について：情報のため

Sub ytrewq() 
    [A7] = [A7] & [A8] & [B8] & [A9] 
    [A10] = [A10] & [A11] & [A12] & [C12] * [A13] & [A14] 
    [A15] = [A15] & [A16] 
End Sub