Add data from table to buttom of another table

[Silaws]

I have a sheet "Data" with an empty table "Table1" I need a macro that retrieves everything that is in the table, it can be from one to several rows, and inserts it at the bottom of another table "Table2" in the sheet "LockedData " and then converts "Table1" so it's an empty one row table again
can anyone help me out?

 

[JackDanIce]

Have you tried to record a macro to do this? Try that, post your code and it'll be easier to suggest a solution if it doesn't work.

 

[Silaws]

the first problem is i dont know how to get it at the bottom of the table, now it just insert where the curser is

Sub hentData()'
' hentData Makro
'


'
    Range("Tabel1").Select
    Selection.Copy
    Sheets("LåstData").Select
    Range("Tabel3").Select
    ActiveSheet.Paste
    Sheets("hentData").Select
    Range("Tabel1[Medarbejder]").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("Tabel1[Opgave]").Select
    Selection.ClearContents
    Range("Tabel1[Tid (min)]").Select
    Selection.ClearContents
    Range("Tabel1[Dato]").Select
    Selection.ClearContents
End Sub

 

[JackDanIce]

Based on your code, try:

Sub hentData()
' hentData Makro
'

Application.ScreenUpdating = False

Sheets("hentData").Range("Tabel1").Copy
Sheets("LåstData").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Application.CutCopyMode = False

With Sheets("hentData")
    .Range("Tabel1[Medarbejder]").ClearContents
    .Range("Tabel1[Opgave]").ClearContents
    .Range("Tabel1[Tid (min)]").ClearContents
    .Range("Tabel1[Dato]").ClearContents
End With

Application.ScreenUpdating = True

End Sub

 

[Silaws]

Tanks!

 

[JackDanIce]

You're welcome