VBA Code is not Entering UserForm Values on Worksheet

So here is the skinny... I've created a userform to enter data into my sheets. The code should look for the last open cell in the given range and add the data to it. The only thing is, its not working. No errors now, its just not entering the data.

Private Sub btnOkay_Click()
Dim LastRow As Long

'Adds 1 to get to the Row following the last populated Row
LastRow = Worksheets("2014").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Worksheets("2014").Range("D1" & LastRow).Value = tbNetSales.Value
Worksheets("2014").Range("G1" & LastRow).Value = tbDiscounts.Value
Worksheets("2014").Range("p1" & LastRow).Value = tbCreditCards.Value

End Sub

Any suggestions?