Delete blank rows

I'm new to vba, and appreciate any help.
I'm trying to clean up several long worksheets by removing rows that don't contain a visable number or letter. I want to remove all rows that only contain either empty cells, formulas that evaluate to a empty text string (""), cells that contain error values, or cells that contain zeros, or any combination of the previous. I've stumbled onto the following, but it does not work.
Am I on the right track? Can anyone help modify this or offer a better solution? Thanks in advance.

Sub DeleteBlankRows()
Dim LR As Long, i As Long, j As Long
Dim LC As Integer, ConditionCounter As Integer

Application.ScreenUpdating = False

LR = ActiveSheet.UsedRange.Rows.Count
LC = ActiveSheet.UsedRange.Columns.Count

    For i = 1 To 1 Step -1
        For j = LC To 1 Step -1
            If IsEmpty(Cells(i, j)) = True Then
            ConditionCounter = ConditionCounter + 1
            Else
                If WorksheetFunction.IsText(Cells(i, j)) = True And (Cells(i, j)) = """" Then
                ConditionCounter = ConditionCounter + 1
                Else
                    If WorksheetFunction.IsText(Cells(i, j)) = False And (Cells(i, j)) = 0 Then
                    ConditionCounter = ConditionCounter + 1
                    End If
                End If
            End If
        Next j
                    If ConditionCounter = LC Then
                    Rows(i).EntireRow.Delete
                    Else
                    End If
                    
    Next i
    
Application.ScreenUpdating = True

End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

I will add them this time

This will remove all entirely blank rows

Sub DeleteBlanks()
    Dim LR     As Long
    Dim LC     As Long
    Dim j      As Long
    'Application.ScreenUpdating = False

    LR = ActiveSheet.UsedRange.Rows.Count
    LC = ActiveSheet.UsedRange.Columns.Count
    For j = LR To 1 Step -1
        If Application.WorksheetFunction.CountA(Range(Cells(j, 1), Cells(j, LC))) = 0 _
           Then Rows(j).EntireRow.Delete
    Next j

End Sub

This should remove all rows with formulas resulting in zeros as well

Sub DeleteBlanks()
    Dim rng    As Range
    Dim LR     As Long
    Dim LC     As Long
    Dim j      As Long

    LR = ActiveSheet.UsedRange.Rows.Count
    LC = ActiveSheet.UsedRange.Columns.Count
    For j = LR To 1 Step -1
        Set rng = Range(Cells(j, 1), Cells(j, LC))

        If Application.WorksheetFunction.CountA(Range(Cells(j, 1), Cells(j, LC))) = 0 Then
            Rows(j).EntireRow.Delete
        ElseIf Application.WorksheetFunction.CountIf(rng, 0) = LC _
               Then Rows(j).EntireRow.Delete
        End If
    Next j

End Sub

The second code should remove rows where all cells containing formulas return 0, does this work

Sub DeleteBlanks()
    Dim rng    As Range
    Dim LR     As Long
    Dim LC     As Long
    Dim j      As Long

    LR = ActiveSheet.UsedRange.Rows.Count
    LC = ActiveSheet.UsedRange.Columns.Count
    For j = LR To 1 Step -1
        Set rng = Range(Cells(j, 1), Cells(j, LC))

        If Application.WorksheetFunction.CountA(Range(Cells(j, 1), Cells(j, LC))) = 0 Then
            Rows(j).EntireRow.Delete
        ElseIf Application.WorksheetFunction.CountIf(rng, 0) = LC _
               Then Rows(j).EntireRow.Delete
        ElseIf Application.WorksheetFunction.CountIf(rng, """") = LC Then
            Rows(j).EntireRow.Delete
        End If
    Next j

End Sub