VBA code to copy data from table to another table

[hamohd70]

Hello,

Please tell me where I went wrong..

I have 3 sheets. I'm trying to copy the content of table1 in sheet1 to table 3 in sheet3 and then copy content from table2 sheet2 to the end of table3 in sheet3...

Sub Button1_Click()

Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim LastRow As Long

Set pasteSheet = Worksheets("Sheet3")

'first copy
Set copySheet = Worksheets("Sheet1")
copySheet.Range("table1").Copy Destination:=pasteSheet.Range("table3")

'move to the next empty row
LastRow = pasteSheet.Range("table3").End(xlUp).Row

'second copy
Set copySheet = Worksheets("Sheet2")
copySheet.Range("table2").Copy Destination:=pasteSheet(3).Range("table3")

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

 

[Sektor]

Sub Button1_Click()


Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim LastRow As Long
Dim sh3Col As Integer


Set pasteSheet = Worksheets("Sheet3")


'first copy
Set copySheet = Worksheets("Sheet1")
copySheet.Range("table1").Copy Destination:=pasteSheet.Range("table3").Cells(1)


'move to the next empty row
With pasteSheet
    sh3Col = .Range("table3").Cells(1).Column
    LastRow = .Cells(.Rows.Count, sh3Col).End(xlUp).Row
End With


'second copy
Set copySheet = Worksheets("Sheet2")
copySheet.Range("table2").Copy Destination:=pasteSheet(3).Cells(LastRow + 1, sh3Col)


Application.CutCopyMode = False
Application.ScreenUpdating = True


End Sub

 

[hamohd70]

Work like a breeze.. thank you Sektor

appreciate it

 

[Sektor]

 

[joaofigu78]

Sub Button1_Click()


Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim LastRow As Long
[COLOR=#ff0000][B]Dim sh3Col As Integer[/B][/COLOR]


Set pasteSheet = Worksheets("Sheet3")


'first copy
Set copySheet = Worksheets("Sheet1")
copySheet.Range("table1").Copy Destination:=pasteSheet.Range("table3")[B][COLOR=#ff0000].Cells(1)[/COLOR][/B]


'move to the next empty row
[COLOR=#ff0000][B]With pasteSheet
    sh3Col = .[/B][/COLOR][B][COLOR=#FF0000]Range("table3").Cells(1).Column
    LastRow = .Cells(.Rows.Count, [/COLOR]sh3Col[COLOR=#ff0000]).End(xlUp).Row
End With[/COLOR][/B]


'second copy
Set copySheet = Worksheets("Sheet2")
copySheet.Range("table2").Copy Destination:=[B][COLOR=#ff0000]pasteSheet(3).Cells(LastRow + 1, [/COLOR]sh3Col[COLOR=#ff0000])[/COLOR][/B]


Application.CutCopyMode = False
Application.ScreenUpdating = True


End Sub

Hi,

Can You help me, my case is more simple, just copy all the table to the end of another table and remove duplicates of table.


Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim LastRow As Long

'sheets Copy and paste
Set pasteSheet = Worksheets("PASTETT")
Set copySheet = Worksheets("TTLINK")

'lastrow
LastRow = pasteSheet.Range("table3").End(xldown).Row + 1

copySheet.Range("TT_BlackFriday__2").Copy Destination:=pasteSheet.Range("table3").Cells(LastRow + 1)


Application.CutCopyMode = False
Application.ScreenUpdating = True