Private Sub Workbook_Open()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("FUTURE")
Set ws2 = Worksheets("CURRENT")
If ws1.AutoFilterMode Then ws1.AutoFilter.ShowAllData
With ws1.Range("A1").CurrentRegion
.AutoFilter 12, "<=" & Format(Date, "m/d/yyyy")
If WorksheetFunction.Subtotal(3, .Columns(12)) > 1 Then
.Offset(1).Resize(.Rows.Count - 1).Copy
With ws2.ListObjects(1).Range
.Cells(.Rows.Count + 1, 1).PasteSpecial xlValues
End With
End If
.Offset(1).EntireRow.ClearContents
ws1.AutoFilter.ShowAllData
End With
With ws2.ListObjects(1).Sort
.SortFields.Clear
.SortFields.Add _
Key:=ws2.ListObjects(1).ListColumns(12).Range, _
Order:=xlAscending
.Header = xlYes
.Apply
End With
End Sub