Hi
Thank you for your quick reply -- I can't send the workbook to much personal data on the sheets -- however I understand how your code works but it means entering the numbers 1 to 7 so that it works OK. What does happen is I use the following to enter on sheet1

[VBA]
Private Sub Add605_Click()
Application.ScreenUpdating = False
Sheets("Sheet1").Select
Dim iRow As Long
Dim ws As Worksheet
Dim LngPos As Long
Set ws = Worksheets("Pools")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
On Error Resume Next
ws.Cells(iRow, 1).Value = UserForm2.Tb825.Value
ws.Cells(iRow, 3).Value = UserForm2.Tb826.Value
ws.Cells(iRow, 4).Value = UserForm2.Tb2A * 0.5
ws.Cells(iRow, 5).Value = UserForm2.Tb3A * 1#
ws.Cells(iRow, 6).Value = UserForm2.Tb4A * 2#
ws.Cells(iRow, 7).Value = UserForm2.Tb5A * 3#
ws.Cells(iRow, 8).Value = UserForm2.Tb6A * 5#
ws.Cells(iRow, 9).Value = UserForm2.Tb7A * 1#
ws.Cells(iRow, 10).Value = UserForm2.Tb8A * 2#
End Sub
[/VBA]

In each textbox I enter the number 1 and that then enters the correct figure on the sheet1 in the correct cell -- I was then going to pastelink from sheet1 into the Breeder sheet and hopefully then convert them myself the trouble is there are over 200 rows to scroll through and I'm bound to make mistakes. You guys always seem to solve my problems and I was again going to the top experts.

Many Thanks

Sooty 8