> 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