It get the last cell in the range and sets LastCell
With Range("A1:A10")
Set LastCell = .Cells(.Cells.Count)
End With
Set FoundCell = Range("A1:A10").Find(What:=PartNumber, After:=LastCell, LookAt:=xlPart)
Try this. If you upload a workbook it would be easier for me to code u up something
Sub test()
Dim sParts As String
Dim arrParts As Variant
sParts = InputBox("Enter Part number...")
sParts = FindParts(sParts)
arrParts = Split(sParts, vbCrLf)
For x = LBound(arrParts) To UBound(arrParts)
Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = arrParts(x)
Next
End Sub
Bookmarks