joel1234a

    Dim LastRow As LongLong
    Dim i As LongLong
    Dim Sheet2 As Worksheet
    LastRow = Worksheets("All").UsedRange.SpecialCells(xlCellTypeLastCell).Row
    MsgBox (LastRow)
    For i = 1 To LastRow
        If Application.WorksheetFunction.CountA(Worksheets("All").Range("J" & CStr(i) & ":" & "AHZ" & CStr(i))) = 0 Then
            Worksheets("All").Activate
	    ActiveSheet.Rows(i).EntireRow.Hidden = True
        End If
    Next i