Imam 3 tabele, kako da se podaci iz njih automatski prebace u neku 4-tu

[ pondeke @ 13.03.2013. 00:25 ] @

Potrebna mi je pomoc, u prilogu se vidi da imam 3 tabele, u sve tri tabele svaki dan unosim raznorazne podatke, postoji li neka funkcija koja bi cim unesem podatke automatski prepisivala sve isto u tu zadnju.

_{[Ovu poruku je menjao pondeke dana 13.03.2013. u 02:12 GMT+1]}

_{[Ovu poruku je menjao pondeke dana 13.03.2013. u 02:12 GMT+1]}

[ pondeke @ 13.03.2013. 03:39 ] @

evo nasao sam nesto slicno ali na zalost ne znam prepravit za ono sto bi mene trebalo

Code:
Sub Duplikati()

  Application.ScreenUpdating = False

      'KOPIRANJE A NA B - SAMO UNIKATI
  Dim aa As Long
  aa = Sheets(1).Range("A1").End(xlDown).Row

    Range("A1:A" & aa).Select
    Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True

    Application.CutCopyMode = False

    Range("A1").Select

End Sub

[ pondeke @ 18.03.2013. 14:19 ] @

neko da pomogne?