Excel VBA Macro To Conditional Delete Rows Across Multiple Sheets

[Excel Fox]

Sub Cleanup_Data()
    
    Dim Sh As Worksheet
    Dim LR As Long
    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Name <> "Data" Then
            With Sh
                LR = .Cells(.Rows.Count, "B").End(xlUp).Row
                .Range("A1:A" & LR & ",C1:H" & LR).Replace What:="|", Replacement:="", LookAt:=xlWhole
                .Range("C1:H" & LR).Replace What:="v", Replacement:="", LookAt:=xlWhole
                .Range("C1:H" & LR).Replace What:="p", Replacement:="", LookAt:=xlWhole
                .Range("C1:H" & LR).Replace What:="s", Replacement:="", LookAt:=xlWhole
                .Range("C1:H" & LR).Replace What:="f", Replacement:="", LookAt:=xlWhole
                .Range("B1:H" & LR).Replace What:="-", Replacement:="", LookAt:=xlWhole
                .Range("E1:E" & LR).Replace What:="?", Replacement:="", LookAt:=xlWhole
                .Range("E1:E" & LR).Replace What:="I", Replacement:="", LookAt:=xlWhole
                .Range("C1:D" & LR & ",G1:G" & LR).ClearContents
                If InStr(.Range("B10").Value, "MENS SHOES DEPARTMENT") < 0 Then
                    .Range("A2:A8").EntireRow.Delete
                End If
            End With
         End If
    Next Sh
    
End Sub