Kopiering af celler fra 1 ark til ark 2?

Jeg får fejl med denne kode:
Sheets("Igangværende").Select
ActiveCell.Activate
ActiveCell.Copy

Sheets("Afsluttet").Activate

ActiveSheet.Cells(lLastrow + 1, 1).Selection
ActiveSheet.Paste

Er opstillingen bare nogenlunde rigtig?

'Rows(ActiveCell.Row).Cut ' klipper
Rows(ActiveCell.Row).Copy 'kopierer
Sheets("Afsluttet").Activate
a = Range("A65536").End(xlUp).Offset(1, 0).Row ' der skal være noget i A kolonnen
    Rows(a).Select
  ActiveSheet.Paste

Jeps, tak for hjælpen, men har et tillægsspørgsmål.

hver linie i "Igangværende" har et 7 cifret nummer. Problemet
er at der gerne skulle laves en "nummer generator", som kan
huske hvor langt man er kommet.

Indtil videre har jeg brugt: =HVIS(ER.TAL(B4);A3+1;"")
men den sletter makroen åbenbart.

Kan VBA huske hvor langt man er kommet?

hvad mener du med at linien  har et 7 cifret nummer, er det noget du har i en kolonne. ?

og et andet spørgsmål, du skriver første tomme linie, vil det sige at du tømmer rækker, så der bliver huller. ?

Det 7 cifrede nummer har jeg  stående i kolonne A (ex. 1000007)

Og, ja, så tømmer jeg rækkerne så der er huller, når de er overført.
ex. 1000007
        tom
    1000009

'Rows(ActiveCell.Row).Cut ' klipper
Rows(ActiveCell.Row).Copy 'kopierer
Sheets("Afsluttet").Activate
a = Range("A1").End(xlDown).Offset(1, 0).Row ' første tomme i A kolonnen
    Rows(a).Select
  ActiveSheet.Paste
Cells(ActiveCell.Row, 1) = Cells(ActiveCell.Row - 1, 1) + 1

nb. har du ikke værdier i kolonne A på Sheets("Igangværende"), som du skal bruge. ?

netop, jeg har jo de værdier på sheets("igangværende"), som
jeg kopierer over i sheets("afsluttet"). Det fungerer også fint.

jeg kan også få den til at plusse 1 hver gang.

Problemet er at jeg gerne vil have en slags "hvis" formel som kan huske at
næste linie i "Igangværende" skal være 1000010, fordi dem tidligere har været indtastet.
Sorry, det er nok lidt svært at forklare

Hvordan kan man undgå at en makro sletter ens Excel funktioner?

hvis du aldrig sletter den højeste værdi

=MAKS(A:A)+1

som skal være den næste

Jeps tak for det.
Nu har jeg bare det problem at hver gang jeg kører makroen,
så bliver mine funktioner slettet: f.eks. =lopslag() osv.

Men kabbak, smid et svar så får du point's

Hvis du vil kan du sende et eksempel ark, til mig, og så vil jeg se på det i aften.

Skriv lige hvilke ønsker og problemer du har, helst inde i arket.

sendtil#kabbak@tiscali.dk

fjern sendtil#

sendt retur

Jeg takker dig utroligt mange gange!!! Det fungerer bare nu.

tak igen, smid et svar

et svar ;-))