Not sure I understood your request because I don't realize what your are trying to do in the above example.
Anyway, in your file you have a working macro, why don't you cut/paste it into the ThisWorkbook (EstaPastaDeTrabalho) module and call it Private Sub Workbook_Open() instead of "Private Sub CommandButton1_Click()". It will be launched every time you open the file.
Now all you have to do is add to it a test to avoid it duplicating the day's sheet in case you need to reopen the file the same day. 
Option Explicit
Private Sub Workbook_Open()
    Dim sztoday, dztoday
    'Copy the master
    Worksheets("Padrão").Copy After:=Worksheets(Worksheets.Count)
    'Change ActiveSheet name
    sztoday = Format(Date, "DD-MM-YYYY")
    ActiveSheet.Name = sztoday
    'Copy A range of Data
    Sheets(Sheets.Count - 1).Select
    ActiveSheet.Range("I35").Copy
    Sheets(Sheets.Count).Select
    ActiveSheet.Range("I34").PasteSpecial Paste:=xlPasteValues
    ActiveSheet.Range("I34").FormatConditions.Delete
    dztoday = Format(Date, "dddd, dd mmmm yyyy")
    ActiveSheet.Range("A5").Value = dztoday
End Sub