estou com essa rotina e quando peço para alterar ela nao altera nas celulas certas alguem pode conferir, sou novo no assunto...

Private Sub SALVAR_EDIÇÃO_Click()
ActiveCell.Value = ComboBox1.Text
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
'ActiveCell.Offset(0, 5).Value = TextBox5.Text (Troca por ComboBox)
ActiveCell.Offset(0, 5).Value = ComboBox4.Text
ActiveCell.Offset(0, 6).Value = TextBox6.Text
ActiveCell.Offset(0, 7).Value = TextBox7.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
ActiveCell.Offset(0, 9).Value = TextBox9.Text
ActiveCell.Offset(0, 10).Value = ComboBox2.Text
ActiveCell.Offset(0, 11).Value = ComboBox3.Text
ActiveCell.Offset(0, 12).Value = TextBox10.Text
ActiveCell.Offset(0, 13).Value = TextBox11.Text
ActiveCell.Offset(0, 14).Value = TextBox12.Text

ActiveCell.Offset(0, 15).Value = Cedula
ActiveCell.Offset(0, 16).Value = Chancela
ActiveCell.Offset(0, 17).Value = Bandeira

ComboBox1.Value = Empty
TextBox1.Value = Empty
TextBox2.Value = Empty
TextBox3.Value = Empty
TextBox4.Value = Empty
'TextBox5.Value = Empty (Troca por ComboBox)
ComboBox4.Value = Empty
TextBox6.Value = Empty
TextBox7.Value = Empty
TextBox8.Value = Empty
TextBox9.Value = Empty
ComboBox2.Value = Empty
ComboBox3.Value = Empty
TextBox10.Value = Empty
TextBox11.Value = Empty
TextBox12.Value = Empty

Image1.Picture = LoadPicture("")
Image3.Picture = LoadPicture("")
Image2.Picture = LoadPicture("")

MsgBox " Cadastro Editado com Sucesso!", vbInformation, "Cad. de Ced. do Brasil. 1833 á 2016"

End Sub

desde ja agradeço,
Octavio.