Sub 加算対象セル()
'行の変数宣言
Dim 行 As Long
'行を31行目からループ処理
For 行 = 31 To 2 Step -1
'4列目の最後の稼働日
If Cells(行, 4) = "稼働日" Then
'6列目の合計には、対象の6列目+E34の合計
Cells(行, 6) = Cells(行, 6) + Range("E35")
'対象があったらループを抜ける
Exit For
End If
Next 行
End Sub