Bom dia! 

Estou com o seguinte erro: "ERRO EM TEMPO DE EXECUÇÃO - '2147417848' (8001018): O MÉTODO 'VALUE' DO OBJETO 'RANGE' FALHOU, no VBA abaixo:

Private Sub btnSalvar_Click()

Dim wb As Workbook
Dim sh As Worksheet

Set wb = ThisWorkbook
Set sh = wb.Sheets("clientes")

wb.Activate
sh.Activate

If txtId.Text = "" Then

Dim id As Integer

sh.Range("A1048576").End(xlUp).Select

If ActiveCell.Row > 1 Then

id = ActiveCell.Value + 1

Else

id = 1

End If

lin = ActiveCell.Row + 1

sh.Cells(lin, 1).Value = id
sh.Cells(lin, 2).Value = txtDataCadastro.Text
sh.Cells(lin, 3).Value = txtPlaca.Text
sh.Cells(lin, 4).Value = txtCliente.Text
sh.Cells(lin, 5).Value = txtCelular.Text
sh.Cells(lin, 6).Value = txtCpfCnpj.Text
sh.Cells(lin, 7).Value = txtCep.Text
sh.Cells(lin, 8).Value = txtEndereco.Text
sh.Cells(lin, 9).Value = txtNumero.Text
sh.Cells(lin, 10).Value = txtBairro.Text
sh.Cells(lin, 11).Value = txtCidade.Text
sh.Cells(lin, 12).Value = txtEstado.Text
sh.Cells(lin, 13).Value = txtresponsavel.Text
sh.Cells(lin, 14).Value = txtImagem.Text

MsgBox "Dados Gravados com Sucesso!", vbOKOnly + vbInformation, "SUCESSO"

Call btnLimpar_Click

Else

End If

End Sub