Al modificar datos me borra los encabezados

que tal tengo una base la cual al pulsar el botón de modificar efectivamente me realiza el evento modifica el dato pero veo con extrañeza que me borra el encabezado de la base he puesto cualquier cantidad de números para que me lo saque de la fila y no me pase esto y no me funciona por que me puede suceder esto, este es el código implementado gracias...

Private Sub Cmdeditar_Click()

Cells(ComboBox1.ListIndex + 2, 1).Select ''''se supone que con esta linea lo saco de la fila
ActiveCell.Offset(0, 0) = Textcod
ActiveCell.Offset(0, 2) = Combotipo
ActiveCell.Offset(0, 3) = Combounida
ActiveCell.Offset(0, 4) = Textprese
ActiveCell.Offset(0, 5) = Textcant

ComboBox1 = ""
Textcod = ""
TextBox1 = ""
Combotipo = ""
Combounida = ""
Textprese = ""
Textcant = ""

end sub

Private Sub Combobox1_Change()

Cells(ComboBox1.ListIndex + 2, 1).Select
Textcod = ActiveCell.Offset(0, 0)
Combotipo = ActiveCell.Offset(0, 2)
Combounida = ActiveCell.Offset(0, 3)
Textprese = ActiveCell.Offset(0, 4)
Textcant = ActiveCell.Offset(0, 5)

end sub