Este fórum está sendo desativado

[1002]

Ao preencher um formulário criado no VBA, os dados inseridos não estão sendo transferidos para a tabela destino.
Colei, abaixo, o trecho dessa parte da programação, para que possam ver. O erro está na linha grifada em vermelho.

Não sei o que há de errado ali, até porque, acho válido ressaltar que sempre funcionou normalmente.
Após algumas novas implementações que fiz no restante da planilha (que nada têm a ver com esta execução), é que parou de funcionar.

Segue:

'Transferir dados do formulário para base de cadastro de produtos
Private Sub CommandButton1_Click()

'Condicional para primeiro registro (primeira linha da tabela, vazia) ou registros posteriores
If Cells(11, 2) = "" Then
Cells(11, 2) = Box_Prod.Value
Cells(11, 3) = ComboBox_Categ.Value
Cells(11, 4) = Box_Tempo.Value
Cells(11, 5) = Box_EM.Value
Cells(11, 6) = ComboBox_UM.Value
Cells(11, 7) = Box_PU.Value
Cells(11, 8) = Box_Forn.Value

Else
linha = Range("B10").End(xlDown).Row + 1

Cells(linha, 2) = Box_Prod.Value
Cells(linha, 3) = ComboBox_Categ.Value
Cells(linha, 4) = Box_Tempo.Value
Cells(linha, 5) = Box_EM.Value
Cells(linha, 6) = ComboBox_UM.Value
Cells(linha, 7) = Box_PU.Value
Cells(linha, 8) = Box_Forn.Value

[osvaldomp]

Substitua esta linha
linha = Range("B10").End(xlDown).Row + 1

por esta
linha = Cells(Rows.Count, 2).End(3).Row + 1

Se o erro persistir então disponibilize o seu arquivo Excel na forma em que o erro ocorre.