Trying to run different macros based on value of cell in a range

Question

I'm attempting to create code that examines a value and, depending on it (OPGW or "Conductor"), executes either the OPGW macro or the Conductor macro in a cell further to the right. Then I want it to scroll down to the following line and repeat the process.

I want cell BG8 to execute the OPGW code if cell B8 is an OPGW cell, and cell BG9 to execute the Conductor code if cell B9 is a Conductor cell. The individual macros are not problematic, but it should be noticed that each macro is a very lengthy formula that SHOULD ONLY be executed in the active cell.

Sub WireUpdate()
N = Cells(Rows.Count, "A").End(xlUp).Row
CR = ActiveCell.Row()

With Range("BG8:BG" & N)
  If ActiveSheet.Cells(CR, 2) = "OPGW" Then
     Call OPGW2
   Else: Call Conductor2
     End If
End With

Answer 1

This demonstrates one approach to loop through a range and how to invoke another method depending on the value of each cell.

To be clear, you must provide the other subs with something to work with. Rather than relying on ActiveCell, you can pass a cell indirectly.

Sub WireUpdate()
    Dim ws As Worksheet, c As Range, n As Long
    
    n = ws.Cells(Rows.Count, "A").End(xlUp).Row
    For Each c In ws.Range("BG8:BG" & n).Cells
        Select Case c.Value
            Case "OPGW": OPGW c     '<< call method and pass in the cell
            Case Else: Conductor2 c
         End Select
    Next c
End Sub

Sub OPGW(c As Range)
    'do something with c
End Sub

Sub Conductor2(c As Range)
    'do something with c
End Sub