copy and paste into next blank cell of table

[Me00550]

im trying to copy and paste data from one sheet to another to a table that but want it to paste it to the next blank cell and then save the document any tips would help.

sub CopyRangeFA()



'Date
  Worksheets("Final Use").Range("D7").Copy
  Worksheets("Log").Range("$D3").PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
'Time
  Worksheets("Final Use").Range("D9").Copy
  Worksheets("Log").Range("$E3").PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
'SN#
  Worksheets("Final Use").Range("D11").Copy
  Worksheets("Log").Range("$C3").PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
'Team Lead
  Worksheets("Final Use").Range("D13").Copy
  Worksheets("Log").Range("$B3").PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False


End Sub