こんにちは。

 A	B	C	D
 2/100	5      	4      	410
			0
 2/100	10      	4      	420
	10      	4      	400
Dim i As Long

 For i = 1 To 4
        Cells(i, 4).Value = (Cells(i, 1).Value * Cells(i, 2).Value + Cells(i, 3).Value) * 100
       
    Next i
マクロで
２行ずつ結合させたいのですが
２行目が空白の時４列の答えが0で表示されるので結合できません。
それから、D列の値と４列目の１つ上の値を足したいのですが上記のコードにどのように書き込むかわかりません、お手数ですがどうか教えてください。