If Sh.Name = "Stock - " + wsSheetSales.Cells(irowSales, 4) + " Collection" Then
sheetFound = True
Dim wsSheetStockSelected As Worksheet
Set wsSheetStockSelected = Sh
Dim LastcellStockSelected As Range
Dim lastRowStockSelected As Long
Set LastcellStockSelected = wsSheetStockSelected.Columns(1).Find("*", , , , xlByRows, xlPrevious)(2)
lastRowStockSelected = IIF(LastcellStockSelected.Row<14,14,LastcellStockSelected)
wsSheetStockSelected.Cells(lastRowStockSelected, 1) = wsSheetSales.Cells(irowSales, 1) 'Client Name
wsSheetStockSelected.Cells(lastRowStockSelected, 2) = wsSheetSales.Cells(irowSales, 2) 'Job N°
wsSheetStockSelected.Cells(lastRowStockSelected, 3) = wsSheetSales.Cells(irowSales, 5) 'Colour
wsSheetStockSelected.Cells(lastRowStockSelected, 4) = wsSheetSales.Cells(irowSales, 3) 'Date
End If