gistfile1.txt

    Workbooks.Add
    Set novoarquivo = ActiveWorkbook
    Worksheets.Item(1).Name = "Planilha da fatura"
    Worksheets.Item(1).Paste
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("A1").Activate
    
    novoarquivo.SaveAs Filename:="C:\minhas_empresas\" & empresa & ".xls"
    novoarquivo.Save
    novoarquivo.Close
    
    Debug.Print empresa & " Inicio:" & inicio & " Final:" & final