Try this (same macro in sample attached):
Sub SchimbaCap2()
Dim Myrange As Range
Dim nextRow As Long
Dim r1, r2, r3 As Range
Set r1 = Sheets("Hoja2").Range("A5:A15")
Set r2 = Sheets("Hoja3").Range("A5:A15")
Set r3 = Sheets("Hoja4").Range("A5:A15")
Application.ScreenUpdating = False
Set Myrange = r1
nextRow = Sheets("Hoja5").Range("A" & Rows.Count).End(xlUp).row + 1
Myrange.Copy
Sheets("Hoja5").Range("A" & nextRow).PasteSpecial (xlPasteValues)
Set Myrange = r2
nextRow = Sheets("Hoja5").Range("A" & Rows.Count).End(xlUp).row + 1
Myrange.Copy
Sheets("Hoja5").Range("A" & nextRow).PasteSpecial (xlPasteValues)
Set Myrange = r3
nextRow = Sheets("Hoja5").Range("A" & Rows.Count).End(xlUp).row + 1
Myrange.Copy
Sheets("Hoja5").Range("A" & nextRow).PasteSpecial (xlPasteValues)
On Error GoTo 0
Application.CutCopyMode = False
Worksheets("Hoja5").Activate
Application.ScreenUpdating = True
End Sub
|