Thank you! I tried updating it in my form and unfotunately i dont know were to place my code:

ActiveWorkbook.Sheets("VT Data").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextRemedyID.Value
ActiveCell.Offset(0, 13).Value = TextRequestor.Value
ActiveCell.Offset(0, 12).Value = TextDateR.Value
ActiveCell.Offset(0, 15).Value = TextDateR.Value
ActiveCell.Offset(0, 11).Value = cmbTools.Value
ActiveCell.Offset(0, 14).Value = TextRef.Value
ActiveCell.Offset(0, 16).Value = CmbPOC.Value

Unload Me
ActiveWorkbook.Sheets("Voice Tracker").Activate
Range("A1").Select