If Cells(i, 3).value <> "" Then Cells(i, 6) = Cells(i, 3)
If Cells(i, 5).value <> "" Then Cells(i, 8) = Cells(i, 5)
Cells(i, 4).value = Cells(i, 3) .value* Cells(i, 2).value
Cells(i, 6).value = Cells(i, 3) .value+ Cells(i, 6).value
Cells(i, 8) .value= Cells(i, 5) .value+ Cells(i, 8).value
Cells(i, 3).resize(1,3).ClearContents