I think it is a scoping problem and the variaables you are using are undefined
at this point.
To check this I would put a break point on the line
CowListStart.Offset(j, 8).Value = TxtAIPregDate.Text
and then pass the mouse over each of the variables you propose to save. I
suspect they will have no value.