Type mismatch in excel array

[KhallP]

I'm creating a macro in vbaque transcribes the values that were assigned to the variables in a specific Excel sheet, it happens that when the program tries to write these values it gives "crash" and the error "Type Mismatch" appears, can someone help me?

Private Sub bt_seguinte_Click()

Select Case True

Case (Trim(cb_autor) = "" Or cb_autor.ListIndex = -1) And Trim(cb_livros) = "" Or cb_livros.ListIndex = -1
    lb_erro_autor.Visible = True
    lb_erro_livros.Visible = True
   
Case Trim(cb_autor) = "" Or cb_autor.ListIndex = -1
    lb_erro_autor.Visible = True
   
Case Trim(cb_livros) = "" Or cb_livros.ListIndex = -1
    lb_erro_livros.Visible = True
   
Case lb_stock_unidades <= 0
   
   
Case Else

Dim contar_other_requisicoes As Long

Workbooks(OtherBookPath).Sheets("Requisições").Activate

contar_other_requisicoes = Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).Row

autor = cb_autor.Value
livro = cb_livros.Value

Error there
------------------------
Range(Cells(contar_other_requisicoes, 2), Cells(contar_other_requisicoes, 8)) = Array(contar_other_requisicoes - 1, nome_usuario, autor, livro, Format(Now, "hh:mm"), Format(Now, "dd/mm/aaaa"), DateAdd("d", 30, Format(Now, "dd/mm/aaaa")))
----------------

End Select

End Sub

 

[DanteAmor]

Change this:

Format(Now, "dd/mm/aaaa"), DateAdd("d", 30, Format(Now, "dd/mm/aaaa")))

For this:

Format(Now, "dd/mm/yyyy"), DateAdd("d", 30, Format(Now, "dd/mm/yyyy")))

 

[KhallP]

Change this:

Format(Now, "dd/mm/aaaa"), DateAdd("d", 30, Format(Now, "dd/mm/aaaa")))

For this:

Format(Now, "dd/mm/yyyy"), DateAdd("d", 30, Format(Now, "dd/mm/yyyy")))

I forgot that ahaha, in Portugal we say "Ano" so I put "aaaa", thanks for the help friend ?

 

[DanteAmor]

In Spanish it is also "Año" and also, on some occasions, the same thing happens to me ?