>>953
>>958

Sub foo()
最終行 = Cells(Rows.Count(), 7).End(xlUp).Row
For i = 1 To 最終行
If Cells(i, 1).Value = "納品日" Then
Cells(i - 1, 1).Value = Cells(i + 1, 7).Value
End If
Next
End Sub

飲みながらだとこういう単純なのが意外とキツイなｗ
>>952君は回答ないけど、無理なのかな？