Insert data from different sheets into one

[richard1234567891011]

Hello Guys,

I have two similar tables in different sheets and I want them both in one sheet.

What do you think is the best way?

A macro? A formula?
And in case, what is the macro or formula?

This is the example:
Sheet: Aste

Sheet: Datio

Expected result:
Sheet: Aste+Datio

Thank you guys,
Kind regards.

 

[richard1234567891011]

No, It is not working.

 

[DanteAmor]

An error message appears?
What does the error message say?

 

[richard1234567891011]

It appears this error message:

With the Debug, I have in yellow this:
sh3.Range("A" & lr3 + 1).Resize(lr2, 9).Value = sh2.Range("A2").Resize(lr2, 9).Value

 

[DanteAmor]

Try this

Sub Insert_data()
  Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet
  Dim lr1 As Long, lr2 As Long, lr3 As Long, wMax As Long, i As Long
  Set sh1 = Sheets("Aste")
  Set sh2 = Sheets("Datio")
  Set sh3 = Sheets("Master")
  sh3.Rows("5:" & Rows.Count).ClearContents
  lr1 = 5
  Do While sh1.Range("C" & lr1).Value <> ""
    lr1 = lr1 + 1
  Loop
  lr1 = lr1 - 1
  lr2 = 5
  Do While sh2.Range("C" & lr2).Value <> ""
    lr2 = lr2 + 1
  Loop
  lr2 = lr2 - 5
  sh3.Range("A5").Resize(lr1 - 4, 9).Value = sh1.Range("A5").Resize(lr1 - 4, 9).Value
  lr3 = sh3.Range("C" & Rows.Count).End(xlUp).Row
  wMax = sh3.Range("C" & lr3).Value
  sh3.Range("A" & lr3 + 1).Resize(lr2, 9).Value = sh2.Range("A5").Resize(lr2, 9).Value
  For i = lr3 + 1 To sh3.Range("C" & Rows.Count).End(xlUp).Row
    sh3.Range("C" & i).Value = sh3.Range("C" & i).Value + wMax
  Next
End Sub

 

[richard1234567891011]

Yes!
I don't know the programming, but you seems very very good.
Thank you again!
A lot!!!

 

[DanteAmor]

I'm glad to help you. I appreciate your kind comments.