Problemer med at få en Macro Kopiering til at virke

Hej

Jeg har fået lidt hjælp til denne stump kode, men
når jeg afvikler det så går der "ged" i de to kopieringer. Der dukker nogle underlige celle-referencer op, men kører jeg så koden igen, så gør den det hele rigtigt.

Ændrer jeg så på mit udvælgelseskriteria og kører en ny update fra access og kopieringen så går det galt igen.

Baggrund:
Jeg har en access2003 database som jeg slår op i og gemmer under faneblad 1. I et andet faneblad har jeg nogle LOPSLAG formler som så laver nogle udtræk fra faneblad 1.

Jeg har prøvet at ligge nogle "sleeps" ind men det hjalp ikke noget.

Sub Opdater()
'
' Opdater Makro
'
'
    ActiveWorkbook.RefreshAll      'Opdater fra Access
   
    'Application.Wait (Now + TimeValue("0:00:02"))
   
    Sheets("Et varenummer").Range("A1:N1").Copy Sheets("Et varenummer").Range("A3:A1000")
    Sheets("Udtræk Alle Varenumre").Range("A1:AL1").Copy Sheets("Udtræk Alle Varenumre").Range("A3:A20000")
   
    'Application.Wait (Now + TimeValue("0:00:05"))
   
    'Sheets("Stamdata").Range("c4:c4").ClearContents
    Sheets("Stamdata").Range("E6:E7").ClearContents
    Sheets("Stamdata").Range("E23:E24").ClearContents
    'Application.Wait (Now + TimeValue("0:00:01"))
    'ActiveWorkbook.Save
End Sub