Copy row based on Cell value.

Hello, I have been using the macro below that I recorded to copy rows of data the Weekly Data sheet to the Report sheet based on the cell value. It is working well, but I would like to build some logic into it so that it will not copy any row that already exists in the target sheet. There will never be a repeating row of data in the spreadsheet so you could use the combination of the values in columns A&D in the Weekly Data sheet to compare to the values in columns A&D in the Report sheet. Sample Data is attached.

  ActiveSheet.Range("$A$1:$EL$732").AutoFilter Field:=10, Criteria1:="<60", _
        Operator:=xlAnd
    Range("A2").Select
    Range("A2:J2", Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Report").Paste

Thanks for any guidance!

Clayton

Try this:

Option Explicit

Sub CopyFilterSpecial()
Dim LR As Long
Application.ScreenUpdating = False

With Sheets("Weekly Data")
    LR = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("HH1") = "key"
    .Range("HH2:HH" & LR).FormulaR1C1 = _
        "=IF(RC10<60,NOT(ISNUMBER(MATCH(RC1&""-""&RC4,INDEX(Report!R2C1:R1000C1&""-""&Report!R2C4:R1000C4,0),0))),FALSE)"
    .Range("HH2:HH" & LR).Value = .Range("HH2:HH" & LR).Value
    .AutoFilterMode = False
    .Rows(1).AutoFilter
    .Rows(1).AutoFilter Field:=216, Criteria1:="TRUE"
    LR = .Range("A" & .Rows.Count).End(xlUp).Row
    If LR > 1 Then .Range("A2:EL" & LR).Copy _
        Sheets("Report").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .AutoFilterMode = False
    .Columns(216).ClearContents
    .Range("A1").CurrentRegion.AutoFilter
End With

Application.ScreenUpdating = True
End Sub

Let's do some codecleaning first:

with ActiveSheet.Range("$A$1:$EL$732")
  .AutoFilter 10, "<60"
  .offset(1).copy Sheets("Report").cells(rows.count,1).end(xlup).offset
(1)
  .Autofilter
end with

Nevermind, not worth getting into.