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.