Worksheets("2014").Range("D" & LastRow).Value = tbNetSales.Value etc