vba - sammenlægning af tabeller

I en projektmappe har jeg adskellige ark, med hver deres tabel i hvert ark. Tabellerne har ikke samme struktur, men f.eks. [Lokalitetsnr] og [Point - forventet indsats] er identisk for alle tabellerne. Disse kolonner vil jeg gerne have lagt sammen for f.eks. 3 tabeller i en fjerde tabel, som også skal tilføjes en ekstra kolonne med formler.
Denne tabel vil jeg gerne lave et pivotdiagram på.

Jeg har forsøgt mig frem med indspilning af makroer og har nu følgende VBA, som mere eller mindre virker. Jeg kan dog ikke få formlen til sidst til at virke.

Jeg kunne dog godt tænke mig at få lavet denne VBA "rigtigt" og så formlen virker.

Er der nogle der kan hjælpe?

Sub Sammenlaegning_tabeller()

    Range("sammenlaegning1").ClearContents 'RYDDER INDHOLD I TABELLEN
    Range("Tabel_Forespørgsler_til_GISP.accdb4[Lokalitetsnr]").Copy 'INDL. VIDER. UNDERS.
    Sheets("Sammenlaegning").Select
    Range("A2").Select
    Sheets("Sammenlaegning").Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select

    Range("Tabel_Forespørgsler_til_GISP.accdb5[Lokalitetsnr]").Copy 'GV VIDER. UNDERS.
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
   
    Range("Tabel_Forespørgsler_til_GISP.accdb6[Lokalitetsnr]").Copy 'AA VIDER. UNDERS.
    ActiveSheet.Paste

    Range("Tabel_Forespørgsler_til_GISP.accdb4[Point - forventet indsats]").Copy 'INDL. VIDER. UNDERS.
    Range("B2").Select
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select

    Range("Tabel_Forespørgsler_til_GISP.accdb5[Point - forventet indsats]").Copy 'GV VIDER. UNDERS.
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
   
    Range("Tabel_Forespørgsler_til_GISP.accdb6[Point - forventet indsats]").Copy 'AA VIDER. UNDERS.
    ActiveSheet.Paste
    Range("F3").Select
   
    Range("sammenlaegning1[Indeks]").FormulaR1C1 = _
    "=HVIS(sammenlaegning1[[#This Row],[Point - forventet indsats]]>0,1,0)" 'VIRKER IKKE!
   
   
    ActiveSheet.PivotTables("Pivottabel2").PivotCache.Refresh
   
End Sub