Thread: production report update from packing report.

Maybe like this:

Code:

        If Not LotFind Is Nothing Then
            LotVal = LotFind.Offset(0, -1).Value - LotNum.Offset(0, 1).Value
                If LotVal <= 0 Then
                    LotFind.EntireRow.Delete xlShiftUp
                Else
                    If LotFind.Offset(0, -1).HasFormula Then
                        LotFind.Offset(0, -1).Value = LotFind.Offset(0, -1).Formula & "-" & LotNum.Offset(0, 1).Value
                    Else
                        LotFind.Offset(0, -1).Value = "=" & LotFind.Offset(0, -1).Value & "-" & LotNum.Offset(0, 1).Value
                    End If
                End If
            LotNum.EntireRow.ClearContents
            Set LotFind = Nothing
        End If