Erro no tempo de execução 1004: erro de definição de aplicativo ou definição de objeto

[Ana Flavia Oliveira]

Trata-se de um formulário simples, porém muito extenso. O erro está aparecendo na linha" Sheets("Lançamentos").Cells(Linha, 316).Value = hora_inicio20.Value". Quando tento cadastrar os dados, ele apresenta esse erro, ainda que o form abra normalmente. Segue o código (a linha que está em verde é onde está apresentando o erro):

Private Sub CommandButton14_Click()
Call proc1
Call proc2
Call proc3
Call proc4
Call proc5
End Sub

Private Sub proc1()

Linha = Sheets("Lançamentos").Range("A1048576").End(xlUp).Row + 1
Sheets("Lançamentos").Cells(Linha, 1).Value = caixadata.Value
Sheets("Lançamentos").Cells(Linha, 2).Value = caixacodigo.Value
Sheets("Lançamentos").Cells(Linha, 3).Value = hora_inicio.Value
Sheets("Lançamentos").Cells(Linha, 4).Value = hora_fim.Value
Sheets("Lançamentos").Cells(Linha, 5).Value = executante.Value

If botaoveri1 = True Then
Sheets("Lançamentos").Cells(Linha, 6).Value = "X"
End If
If botaoajuste1 = True Then
Sheets("Lançamentos").Cells(Linha, 7).Value = "X"
End If
If botaotroca1 = True Then
Sheets("Lançamentos").Cells(Linha, 8).Value = "X"
End If
If botaolubri1 = True Then
Sheets("Lançamentos").Cells(Linha, 9).Value = "X"
End If
Sheets("Lançamentos").Cells(Linha, 10).Value = hora_inicio2.Value
Sheets("Lançamentos").Cells(Linha, 11).Value = hora_fim2.Value
Sheets("Lançamentos").Cells(Linha, 12).Value = executante2.Value
If botaoveri2 = True Then

...

End sub

(O código se repete por mais várias linhas, mudando apenas as colunas e o índice de hora_inicio, hora_fim e executante)

...

Private Sub proc2()

...

If botaoveri65 = True Then
Sheets("Lançamentos").Cells(Linha, 312).Value = "X"
End If

If botaoajuste65 = True Then
Sheets("Lançamentos").Cells(Linha, 313).Value = "X"
End If

If botaotroca65 = True Then
Sheets("Lançamentos").Cells(Linha, 314).Value = "X"
End If

If botaolubri65 = True Then
Sheets("Lançamentos").Cells(Linha, 315).Value = "X"
End If

Sheets("Lançamentos").Cells(Linha, 316).Value = hora_inicio20.Value
Sheets("Lançamentos").Cells(Linha, 317).Value = hora_fim20.Value
Sheets("Lançamentos").Cells(Linha, 318).Value = executante20.Value
...

Sheets("Lançamentos").Cells(Linha, 894).Value = observacao.Value
MsgBox ("Cadastrado com sucesso!"), vbInformation, "CADASTRO"

End sub

...