Hjælp til kopiering af X antal celler?

Sub KopierTilArk2()
Sheets("ark2").Range("a1:h20").Value = Sheets("ark1").Range("a1:h20").Value
End Sub

Hvis du også har formler i dit område, er dette bedre:

Sub KopierTilArk2()
Sheets("ark2").Range("a1:h20").Formula = Sheets("ark1").Range("a1:h20").Formula
End Sub

Ret arknavnene til de rigitge.

Nej der er som ingen formler eller noget... det er bare en rå text....

Hvad nu hvis den skal smide det over i et NYT regneark og over i Sheet 1???

Mener du i en ny fil? Er denne i givet fald åbn eller skal den kreere den/åbne den til formålet. skal den i givet fald gemmes/lukkes igen.

Denne kode åbner en ny tom fil. Kopierer til Ark1 i denne. Gemmer den under navnet Kopi 16-04-04.xls, og lukker den nye mappe:

Sub KopierTilNyMappeArk1()
    Workbooks.Add
    ActiveWorkbook.Sheets("ark1").Range("a1:h20").Formula = Workbooks("div.xls").Sheets("ark1").Range("a1:h20").Formula
    ActiveWorkbook.SaveAs "Kopi " & Date & ".xls"
    ActiveWorkbook.Close
End Sub

16-04-04 repræsenterer den aktuelle dato.

Jeg kan ikke rigtigt få skidtet til at virke

Det der med at bruge : dur ikke

fandt en anden måde at få skidtet til at virke...:
---------------------------------------------------------------------------------------
Private Sub CMD_CopyToSingleSheet_Click()
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
   
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Open("C:\EksportTest.xls")

    xlApp.Visible = True
   
    For X = 1 To 5000
   
If Workbooks("TilbudsExcel.xls").Sheets("Tilbudsrapport").Range("A8").Offset(X, 0) <> "" Then
xlWB.Sheets("Ark1").Range("A2").Offset(X, 0) = Workbooks("TilbudsExcel.xls").Sheets("Tilbudsrapport").Range("A8").Offset(X, 0        xlWB.Sheets("Ark1").Range("B2").Offset(X, 0) = Workbooks("TilbudsExcel.xls").Sheets("Tilbudsrapport").Range("B8").Offset(X, 0)
xlWB.Sheets("Ark1").Range("C2").Offset(X, 0) = Workbooks("TilbudsExcel.xls").Sheets("Tilbudsrapport").Range("C8").Offset(X, 0)
xlWB.Sheets("Ark1").Range("D2").Offset(X, 0) = Workbooks("TilbudsExcel.xls").Sheets("Tilbudsrapport").Range("D8").Offset(X, 0)
xlWB.Sheets("Ark1").Range("E2").Offset(X, 0) = Workbooks("TilbudsExcel.xls").Sheets("Tilbudsrapport").Range("E8").Offset(X, 0)
xlWB.Sheets("Ark1").Range("F2").Offset(X, 0) = Workbooks("TilbudsExcel.xls").Sheets("Tilbudsrapport").Range("F8").Offset(X, 0)
xlWB.Sheets("Ark1").Range("G2").Offset(X, 0) = Workbooks("TilbudsExcel.xls").Sheets("Tilbudsrapport").Range("G8").Offset(X, 0)
End If
    Next X
End Sub