Copy row from Sheet1 to Sheet2 when cell = Yes w/o duplicates

I have an excel spreadsheet that tracks what is still needed on files my company is processing.

Column H = Follow up needed?

If "YES" is in column H, that entire row needs to be copied and pasted into the next sheet (sheet2) without duplicates.

Sheet1 headers on row 4, with data starting on row 5.
Sheet2 headers on row 4, with date starting on row 5.

Will need row data from A-H columns copy and pasted into sheet2 when H = YES

The "without duplicates" is a luxury to be automated. I know that I can run the macro and then "remove duplicates" from sheet2 each time I open it. If I take this option, I will need to make sure that cell formatting is not affected when duplicates are removed.


Thank you!

Sub acard()

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

Set CheckRange = ws1.Range("H5:H" & ws1.Cells(Rows.Count, "H").End(xlUp).Row)
OpenRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1

For Each Cell In CheckRange
    If UCase(Cell.Value) = "YES" Then
        ws2.Range("A" & OpenRow & ":H" & OpenRow).Value = _
        ws1.Range("A" & Cell.Row & ":H" & Cell.Row).Value
        OpenRow = OpenRow + 1
    End If
Next

ws2.Range("$A$5:$H$" & OpenRow - 1).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7)
End Sub