Sub 最終行が非稼働日()
'4列目の最後の稼働日の場合
If Cells(Rows.Count, 4).End(xlUp) = "非稼働日" Then
'非稼働日セルの1段上の右は、
Cells(Rows.Count, 4).End(xlUp).Offset(-1, 1) = Cells(Rows.Count, 4).End(xlUp).Offset(-1, 1) + Cells(Rows.Count, 4).End(xlUp).Offset(0, 1)
End If
End Sub