Sub ExportNowRows2NewList()
  Dim rg As Range, r&, rc&
  Set rg = ActiveSheet.UsedRange
  Set rg = rg.Resize(rg.Rows.Count, rg.Columns.Count + 1)
  rg.Columns(rg.Columns.Count) = "=row()"
  rg.Columns(rg.Columns.Count).Value = rg.Columns(rg.Columns.Count).Value
  SortRangeBy rg, Array(1)
  rc = WorksheetFunction.CountIf(Columns(1), Int(Now))
  If rc > 0 Then
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    r = WorksheetFunction.Match(CDbl(Int(Now)), rg.Parent.Columns(1), True)
    Union(rg.Parent.Rows(1), rg.Parent.Rows(r).Resize(rc)).Copy Cells(1)
  End If
  SortRangeBy rg, Array(rg.Columns.Count)
  Columns(rg.Columns.Count).ClearContents
  rg.Parent.Columns(rg.Columns.Count).ClearContents
End Sub


Sub SortRangeBy(rg As Range, c, Optional Hd& = 1)
  Dim i&
  With rg.Parent.Sort
    .SortFields.Clear
    For i = LBound(c) To UBound(c)
      .SortFields.Add Key:=rg.Cells(1).Offset(Hd, Abs(c(i)) - 1).Resize( _
      rg.Rows.Count - Hd, 1), SortOn:=xlSortOnValues, Order:=IIf(c(i) > 0, _
      1, 2), DataOption:=xlSortNormal
    Next
    .SetRange rg: .Header = Hd: .MatchCase = False
    .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
  End With
End Sub