Help!!! Moving a row to another sheet after a particular date

[Ehfarley]

Good Afternoon,

I have 2 sheet's open one "2017" the other is "Close Out", I would like for the row's to duplicate and move to "Close Out" after the date has passed that is populated in column D starting at line 4. Any tip's or pointer's would be greatly appreciated.

 

[My Aswer Is This]

Try this:
This script will run every time you activate sheet named "2017"
If any date in column "D" is less then todays date the entire rows data will be copied to a sheet named "Close Out"

Now so the script will know this row has already been copied over the cells Interior color will be turned green.
Next time the sheet is activated the script will not copy over any row if column "D" interior color is green.

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab named "2017"
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Activate()
Dim c As Range
Dim Lastrow As Long
Lastrow = Sheets("Close Out").Cells(Rows.Count, "D").End(xlUp).Row + 1

    For Each c In Range("D4:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    Lastrow = Sheets("Close Out").Cells(Rows.Count, "D").End(xlUp).Row + 1
    
    If c.Value < Date And c.Interior.ColorIndex <> 4 Then
        Rows(c.Row).Copy Sheets("Close Out").Rows(Lastrow)
        c.Interior.ColorIndex = 4
    End If
Next
End Sub