Generate a pending list from multiple sheets

Try this code......For detail pls see the attached sheet.

Sub pendinglist()
Dim ws As Worksheet
Dim rng As Range, cell As Range
Dim lr As Long, lr1 As Long
Application.ScreenUpdating = False
lr1 = Sheets("Pending").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Pending").Range("A4:A" & lr1).EntireRow.Clear
For Each ws In Worksheets
    If ws.Name <> "Pending" Then
        lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
        Set rng = ws.Range("A4:A" & lr)
        For Each cell In rng
            If cell.Offset(0, 13).Value = "" Then
                lr1 = Sheets("Pending").Cells(Rows.Count, 1).End(xlUp).Row + 1
                ws.Activate
                ws.Range(Cells(cell.Row, 1), Cells(cell.Row, 18)).Copy Sheets("Pending").Range("A" & lr1)
            End If
        Next cell
    End If
Next ws
Sheets("Pending").Activate
Application.ScreenUpdating = True
End Sub