Cod: Selectaţi tot
c.Resize(, 6).Copy Destination:=ThisWorkbook.Sheets("Sheet2").Range("B1000000").End(xlUp).Offset(1, 0)
Application.CutCopyMode = False
Cod: Selectaţi tot
ThisWorkbook.Sheets("Sheet2").Range("B1000000").End(xlUp).Offset(1, 0).Resize(, 6).Value = c.Resize(, 6).Value