Hi
Thank you for your replies. Here is my code at the moment. As I said I only want data to fill down to row 107 then after that I have formulas to copy the data above and make different calculations. The spreadsheet has to be set out in a certain way as it links to accounting software.
Private Sub ACTextBox_Change()
ACTextBox = 6150
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Label6_Click()
End Sub
Private Sub UserForm_Initialize()
'Empty AmountTextBox
AmountTextBox.Value = ""
'Empty JobTextBox
JobTextBox.Value = ""
'Empty VATTextBox
VATTextBox.Value = "0.00"
'Empty CommentsTextBox
CommentsTextBox.Value = ""
'Empty ACTextBox
ACTextBox.Value = "6150"
'Empty CCTextBox
CCTextBox.Value = "ZZZ"
'Empty DeptTextBox
DeptTextBox.Value = "ZZZ"
'Empty ANTextBox
ANTextBox.Value = "SUNDRIES"
'Set Focus on AmountTextBox
AmountTextBox.SetFocus
End Sub
Private Sub OKButton1_Click()
'Make Sheet1 active
Sheet1.Activate
'Determine emptyRow
NextFreeRow = Application.Max(Range("A" & Rows.Count).End(xlUp).Row + 1, 10)
'Transfer information
Cells(NextFreeRow, 4).Value = AmountTextBox.Value
Cells(NextFreeRow, 6).Value = JobTextBox.Value
Cells(NextFreeRow, 9).Value = CommentsTextBox.Value
Cells(NextFreeRow, 1).Value = ACTextBox.Value
Cells(NextFreeRow, 2).Value = CCTextBox.Value
Cells(NextFreeRow, 3).Value = DeptTextBox.Value
Cells(NextFreeRow, 7).Value = ANTextBox.Value
Cells(NextFreeRow, 5).Value = VATTextBox.Value
Unload Me
UserForm1.Show
End Sub