New user looking for expert guidance.

Greetings to Everyone! I am excited to be here because I enjoy the practicality of VBA. I have little coding background but am a quick study and I love code. Currently I work for an avionics business in Tallahassee, FL. I am a project manager among other things. I am trying to take an inventory list and run macros that will allow me to segment the 4000+ part numbers into categories in new columns. The issue I am having is that I can not get a wild card function to work, leaving me to have to code all 4000 parts. All of the Servo motors have a 10 digit part number like:

A roll servo is 065-00179-0600
Another type of Roll servo is 065-00179-0300

I only need them to be categorized past the -00179- into roll servo's or past only the 065- as servos. Anyways lets get to the good stuff...

Sub Macro2()
Dim num As Integer, lr As Long, r As Long
lr = Cells(Rows.Count, "C").End(xlUp).Row
For r = 2 To lr
Select Case Range("C" & r).Value
Case Is = "622-4938-001"
Range("K" & r).Value = "CONTROL HEAD"
Case Is = "622-4938-008"
Range("K" & r).Value = "CONTROL HEAD
Case Is = "065-00179-0600"
Range("Y" & r).Value = "SERVO"
Case Is = "065-00179-0300"
Range("Y" & r).Value = "SERVO"
End Select
Next r

My plan is to create a macro that will format the data how I want ( which is as simple as recording) and then run the above macro to add columns of data based on my segmentation of the parts(without writing out 9000+ lines of code. That I can then run through another macro to turn into graphs to use in marketing. (I have not gotten this far yet.)

I appreciate any guidance anyone could offer. I plan to study VBA more extensively in the coming years so I'll be around. Thanks!

Regards,

Tyler

(I put this in the wrong forum originally, sorry for repost)