こんにちは。

 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列の値と４列目の１つ上の値を足したいのですが上記のコードにどのように書き込むかわかりません、お手数ですがどうか教えてください。

コードは　
D1=(A1*B1+C1)*100
D2=(A2*B2+C2)*100
D3=(A3*B3+C3)*100
D4=(A4*B4+C4)*100
といった計算をしているようですが、
「結合させたい」とはどういう意味でしょうか?
質問の意味が理解できません。

質問の欄は編集しましたが、ちょっとずれてしまっていますがご了承ください。
A1とA3の　2/100　は0.02のことと解釈していますので、4列目の計算結果は
意図されているものが得られていることも理解できています。
ただし、何をなさりたいのかがわかりません。
「上のセル」といった位置関係なら　Offset　といったものを思い浮かべますが・・・

> A列で２行ずつ結合した場合の計算式がわかりません。
結合してあるものを計算するということは、1行おきに計算するということになりますか？
それならば、下のようにFor〜Next　で　Step 2　としたらいかがでしょうか?
計算の方法などよく理解できていませんので、いい加減なものになっているかもしれません。

Sub test()
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
        If Cells(i, 4).Value = 0 Then Cells(i, 4).Value = ""
       
Next i
  Cells(1, 5).Value = ""
For i = 1 To 4 Step 2
  Cells(i, 5).Value = Cells(1, 5).Value + Cells(i, 4).Value
Next i
End Sub