Can anyone think of a better way to write this VBA or to turn it into a UDF?

[VBE313]

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 cl In ActiveSheet.Range("OpsGroup")
 l = ActiveCell.Row
        strCells = "T" & l
        Range(strCells).Select
        
        If ActiveCell.Value = "" Then
Application.ScreenUpdating = True
Exit Sub
Else
End If
R
    If ActiveCell.Value = "TOP LEVEL" Then
    ActiveCell.Offset(0, -1).Select
    Set partnum = ActiveCell
Range("AB" & Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = partnum
Range("AC" & Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = partnum


Range(strCells).Select
Else


If ActiveCell.Value <> "TOP LEVEL" Then
Range("AB" & Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = partnum
Range(strCells).Select
Else


End If
End If
ActiveCell.Offset(1, 0).Select
Next cl
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub

 

[Fluff]

What is the range of OpsGroup?

 

[VBE313]

Hi Fluff,

the range for ops group is any column so let’s use C for example. “C3:C998”

 

[Fluff]

How about

Sub test4opsgroup()
   Application.ScreenUpdating = False
   ActiveSheet.Unprotect
   Dim Cl As Range
   
   For Each Cl In ActiveSheet.Range("OpsGroup")
      With Range("T" & Cl.Row)
         Select Case .Value
            Case ""
               Exit Sub
            Case "TOP LEVEL"
               Range("AB" & Rows.Count).End(xlUp).Offset(1).Value .Offset(, -1).Value
               Range("AC" & Rows.Count).End(xlUp).Offset(1).Value .Offset(, -1).Value
            Case Else
               Range("AB" & Rows.Count).End(xlUp).Offset(1).Value .Offset(, -1).Value
         End Select
      End With
   Next Cl
   ActiveSheet.Protect
End Sub