Thanks Mana
I managed to get my code to work but your simplified it. here is what i was using.
PHP Code:
Private Sub cmdAdd_Click()
Dim i As Long
If Me.Combobox1.Text = "Colour" Then
Sheet3.Activate
ActiveSheet.Range("A2").Activate
Do While IsEmpty(ActiveCell.Offset(i, 0)) = False
i = i + 1
Loop
ActiveCell.Offset(i, 0).Value = Textbox1.Value
End If
If Me.Combobox1.Text = "Animal" Then
Sheet1.Activate
ActiveSheet.Range("B2").Activate
Do While IsEmpty(ActiveCell.Offset(i, 0)) = False
i = i + 1
Loop
ActiveCell.Offset(i, 0).Value = Textbox1.Value
End If
'And repeat for rest
End Sub