Error raro con excel 2010

buenas tengo un extraño error en un archivo que hice en excel 2003 a la hora de ejecutarlo en el excel 2010, el error me sale a la hora de ingresar los datos de palpación y parto

tengo seis columnas con datos fijos desde la A hasta la H

n vaca - madre - padre - peso - fecha nacimiento

en la columna I empieza

palpar 1 - G - palpar 2 - G...hasta la Z (la G es gestación esta en una columna)

si yo ingreso los datos por primera vez en palpación me los pone bien en palpar 1- G

pero si yo luego vuelvo a ingresar los datos en palpación no me los pone en palpar 2 - G si no en palpar 5 - G

lo mismo me sucede con partos que empieza en la columna AA parto 1 - S (la S es sexo)

este es el código del formulario

Option Explicit
Private Sub BtnIngNewVaca_Click() 'BOTON PARA INGRESAR VACAS NUEVAS
Dim Macho As Boolean
Dim Hembra As Boolean
Macho = OptM1.Value
Hembra = OptH1.Value
Range("A6").Select
Do While Not IsEmpty(ActiveCell)
 ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = CDbl(TextVaca)
If Macho = True And Hembra = False Then
 ActiveCell.Offset(0, 1) = "M"
 Else: Hembra = True And Macho = False
 ActiveCell.Offset(0, 1) = "H"
End If
ActiveCell.Offset(0, 2) = CDbl(TextMadre)
ActiveCell.Offset(0, 3) = CDbl(TextPadre)
ActiveCell.Offset(0, 4) = CDbl(TextPeso)
ActiveCell.Offset(0, 5) = CDate(TextNace)
Borrar
End Sub
Sub Borrar()
TextVaca = ""
OptM = False
OptH = False
TextMadre = ""
TextPadre = ""
TextPeso = ""
TextNace = ""
End Sub
Private Sub ListVacas1_enter()
Dim Celda As Object
Me.ListVacas1.Clear
 For Each Celda In Range("A6:A" & Range("A" & Rows.Count).End(xlUp).Row)
 If Celda <> Empty Then ListVacas1.AddItem Celda.Value
 Next
End Sub
Private Sub BtnIngNewPalpa_Click() 'BOTON PARA INGRESAR PALPACIONES
[A:A].Find(WHAT:=ListVacas1, LOOKAT:=xlWhole).Activate
Do While Not IsEmpty(ActiveCell)
 ActiveCell.Offset(0, 6).Select
Loop
ActiveCell = CDate(FePalpar)
ActiveCell.Offset(0, 1) = CDbl(TextGesta)
End Sub
Private Sub ListVacas2_enter()
Dim Celda As Object
Me.ListVacas2.Clear
 For Each Celda In Range("A6:A" & Range("A" & Rows.Count).End(xlUp).Row)
 If Celda <> Empty Then ListVacas2.AddItem Celda.Value
 Next
End Sub
Private Sub BtnIngNewParto_Click() 'BOTON PARA INGRESAR PARTOS
Dim Macho As Boolean
Dim Hembra As Boolean
Macho = OptM2.Value
Hembra = OptH2.Value
[A:A].Find(WHAT:=ListVacas2, LOOKAT:=xlWhole).Activate
Do While Not IsEmpty(ActiveCell)
 ActiveCell.Offset(0, 26).Select
Loop
ActiveCell = CDate(FeParto)
If Macho = True And Hembra = False Then
 ActiveCell.Offset(0, 1) = "M"
 Else: Hembra = True And Macho = False
 ActiveCell.Offset(0, 1) = "H"
End If
End Sub

cualquier duda me dicen y les doy la aclaración