ежедневное добавление данных в таблицу не открывая её

[FormAlDeGid]

Бодрый День!!!

Озадачен я вот какой идейкой: каждый день я качаю сгенерировнную сервером табличку с данными за вчерашний день, замечательный макрос форматирует мне её в красивый вид. а потом я вручную добавляю эти данные во вторую книгу и подписываю за какое число данные. помогите дописать уже существующий макрос или написать новый, чтобы данные добавлялись к таблице во второй книге автоматически.

Sub Утро()

    Dim i As Long, a(), b(): Application.ScreenUpdating = False
    a = ActiveSheet.UsedRange.Value: b = Array(5, 3, 4, 6, 16, 9, 7): Cells.Delete
    [G:G].NumberFormat = "#,##0.00$": [C:C].NumberFormat = "0"
    For i = LBound(b) To UBound(b)
        Range(Cells(1, i + 1), Cells(UBound(a, 1), i + 1)) = Application.Index(a, 0, b(i))
    Next
    [G:G].HorizontalAlignment = xlRight: [A:F].HorizontalAlignment = xlLeft
    Rows(1).Font.Bold = True: Rows(1).HorizontalAlignment = xlCenter: [A:G].EntireColumn.AutoFit
    With ActiveSheet.UsedRange
        .Sort Key1:=[E1], Order1:=xlAscending, Header:=xlYes
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    End With
    For i = 2 To UBound(a, 1)
        If Left$(Cells(i, 5), 1) = "N" Then Cells(i, 5).Font.Bold = True
    Next

End Sub