Sub DeliveryCost()
Dim i As Integer
Dim j As Integer
Dim iEndrow As Long
iEndrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To iEndrow
If Cells(i, 14).Value < 25 Then
Cells(i, 16).Value = 2
Else
Cells(i, 16).Value = 5
End If
Next
End Sub
On Fri, Nov 1
Sheets("New").Select
On Error Resume Next
For i = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 14)"< 25 Then
Cells(i, 16) = 2
Endif
If cells(I,14)>25 then
Cells(i,16)=5
Endif
next
From: excel-macros@googlegroups.com [mailto:excel-macros@go
