VBA to copy value from cells in 1 worksheet to another, but without erasing existing data

Hello, I am trying to copy data from 1 worksheet to another but with some special features. The data I am copying are values from formulas that calculate a number. This resides on Worksheet "Night Force". I need the value from F59 and I59. I want these values placed into specific cells based off the date. So I have my 2nd worksheet "Table". The entire worksheet is blank. I have already created a button that will run the code. When I press the button, I want the code to look at the last Column (row 1) for the current date, then update Row2 (same column) with Night Force.F59 and Row3 (Same column) with Night Force.I59. If the Last Column does not contain the current date, then I would like the code to create a new column, with today's date and update the corresponding cells (Row2, Row3) underneath said column. So if I were to run the button today (1/24/16) then A1 would populate with the date (1/24/16) and A2 would populate with the value of F59 from Night Force worksheet (162 for example) and A3 would populate with value from I59 from Night Force worksheet (123 for example). For everytime I press the button on 1/24/16 those 2 cells would update with the correct values. When the day changes and I press the button, then B1 would get the new date (1/25/16) and B2 and B3 would update respectively with the values from I59 and F59. Every time I press the button during the day of 1/25 then only B2 and B3 would update accordingly. Next day (1/26) C1 would have the new date and C2 and C3 would update.

I have very minimal written code for it, but the problem is everything is statically defined which defeats the purpose of having the macro. I could just as easily update the cells myself with the same amount of typing it takes to change the code.

Thank you in advance for your help.

Skellington

Sub Table_Update()
  Dim tDate As Date
  Dim dAct As Integer
  Dim nAct As Integer
  Dim LC As Long
  tDate = Date
  dAct = Sheets("Night Force").Cells(59, "F").Value
  nAct = Sheets("Night Force").Cells(59, "I").Value
  LC = Sheets("Table").Cells(1, Columns.Count).End(xlToLeft).Column

  If Cells(1, LC) = tDate Then
    Cells(2, LC).Value = dAct
    Cells(3, LC).Value = nAct
  Else
        Cells(1, LC + 1) = tDate
        Cells(2, LC).Value = dAct
        Cells(3, LC).Value = nAct
  End If
End Sub

Both codes work, but Bulina2k's is cleaner/shorter