Thanks,
Here is what I created, its errors at the ???
-----
Dim i As Integer
Dim bStart As Boolean
bStart = False
For i = 1 To 100
If Cells(i, 2).Value = "Grand Total" Then Exit For ' define end
If bStart = True Then
If Cells(i, 1).Value <> 0 Then ' insure there is a qty
If Cells(i,
= 0 And Cells(i, 9) = 0 Then ' use vendor data from col E - Unit List
Cells(i, 10).Value = Cells(i, 1).Value * Cells(i, 5).Value
ElseIf Cells(i,
> 0 Then ' use percentage discount from col H - Discount %
Cells(i, 10).Value = Cells(i, 1).Value * (Cells(i, 5).Value - Cells(i, 5).Value * Cells(i,
.Value / 100) ' ?????
ElseIf Cells(i, 9) > 0 Then ' use specified value in col J - Unit selling price
Cells(i, 10).Value = Cells(i, 1).Value * Cells(i, 10).Value
End If
End If
End If
If Cells(i, 1).Value = "Qty." Then bStart = True ' define start
Next
End Sub