Need Help with Macro

[CaptinKrunch]

I'm having a problem with the macro below. Your site had helped me write this macro as I have very little experience with VB. Attached is a sample Excel file. The sheet "RF#&MTC#Match" uses the macro below. The data shown is the results of the macro when it worked. Ths sample Excel file has approximately 400 lines of data, our "real file" has over 17,000 lines of data and growing. I would appreciate your help with this again.

Thanks,
Andy

Sub x()
    Dim t           As Range
    Dim cell        As Range

    Set t = Worksheets("Data").UsedRange
    With t.Resize(, 1).Offset(, t.Columns.Count)
       .FormulaT1C1 = "=counta(tc12:tc13)*counta(tc15:tc16)"

        For Each cell In .Cells
            If cell.Value Then
                Intersect(cell.EntireRow, t.EntireColumn).Copy _
                        Destination:=Worksheets("RF#MTC#Match").Cells(Rows.Count, "A").End(xlUp).Offset(1)
            End If
        Next cell

        .ClearContents
    End With
End Sub