@edsonbr deu certo, MUUUUUUUUUUITO obrigado amigo!

Segue a planilha que to fazendo o teste  TESTE.xlsm

@edsonbr deu certo até um ponto, não está gravando mais editei alguns campos e ficou assim Sub Salvar() Dim i As Long With ThisWorkboo...