Sub CopyData()

​

Application.ScreenUpdating = False

Dim pasteSheet As Worksheet

​

Set pasteSheet = Worksheets("Remediation Summary")

​

For Each ws In ThisWorkbook.Worksheets

If ws.Index <= (ThisWorkbook.Worksheets.Count - 1) Then

    'check column i for x

    For Each iCell In ws.Range("i1:i200").Cells

    If iCell.Value Like ("X") Then

        iCell.EntireRow.Copy

        pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

        Application.CutCopyMode = False

        Application.ScreenUpdating = True

    End If

    Next iCell

​

    'check column j for x

    For Each jCell In ws.Range("j1:j200").Cells

    If jCell.Value Like ("X") Then

        jCell.EntireRow.Copy

        pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

        Application.CutCopyMode = False

        Application.ScreenUpdating = True

    End If

    Next jCell

End If

Next ws

​

End Sub