Sub test4opsgroup()
Application.ScreenUpdating = False
ActiveSheet.unprotect
Dim cl As Object
Dim l As Long, strCells As String
Dim strpart As String
Dim min As Range
Dim numrows As Long
Dim numcolumns As Long
Dim partnum As Range
Dim Qty As Range
ActiveSheet.Range("T2").Select
For Each...