Didn't we go over this before?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
     
    If Target.Address = "$C$2:$M$3" Then
        Application.StatusBar = "Created by:" & Target.Cells(1)
        Exit Sub
    End If
     
    If Intersect(Target, Rows("9:28")) Is Nothing Then Exit Sub
    
    Select Case Target.Column
    Case 2: SubB Target
    Case 5, 6: SubEF Target
    Case 9 To 12: SubItoL Target
    End Select
    
End Sub

Private Sub SubB(Target As Range)
'Code to work on Coumn B
End Sub

Private Sub SubEF(Target As Range)
'Same As Above For columns F & E
'repeat As needed
End Sub
This 
   sr = Selection.Row 
    sc = Selection.Column 
    Inquiry = Cells(sr, sc)
Is the same as This 
Inquiry = Target
And This 
VLookup(Inquiry, [PN_STATUS], 2, 0)
Is the Same As This 
VLookup(Target, [PN_STATUS], 2, 0)
And Finally, unless you have changed your VLookUp Tables, you can't use the same criteria for different Tables