Hi,
I have some code below. it works up to the line calculate cost where it just returns the value from the first if statement. Please help
Sub data_sorting()
Dim Bcell As Range
Dim NextRow
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
'Jan...