Sub Test()
Dim ws_count As Integer, i As Integer, finalRow As Integer, x As Integer
Dim Rng As Range
lDz = 0
lCs = 0
sUOM = " "
With ActiveWorkbook.Worksheets(formTitle)
Set Rng = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
End With
Call findItem(Rng, sPrdCde)
lDz =...