Copy paste values from one worksheet to another worksheet of the same workbook.

[omairhe]

Hello . How do I copy from worksheet named "Special" all data from Column A to Column G but starting from the 2nd Row down til the last data cell (in column A).
Next, paste this to a sheet named "Summary" just below last data cell available (in column A).

Will appreciate any help.
Thanks and regards,

Omair.

 

[offthelip]

try this:

Sub test()
With Worksheets("Special")
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
inarr = .Range(.Cells(2, 1), .Cells(lastrow, 7))
End With
With Worksheets("Summary")
 lastd = .Cells(Rows.Count, "A").End(xlUp).Row + 1
  .Range(.Cells(lastd, 1), .Cells(lastd + lastrow - 1, 7)) = inarr
End With

End Sub

 

[omairhe]

try this:

Sub test()
With Worksheets("Special")
lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
inarr = .Range(.Cells(2, 1), .Cells(lastrow, 7))
End With
With Worksheets("Summary")
 lastd = .Cells(Rows.Count, "A").End(xlUp).Row + 1
  .Range(.Cells(lastd, 1), .Cells(lastd + lastrow - 1, 7)) = inarr
End With

End Sub

Thanks a lot offthelip, I owe you one.


(one little alteration at the second last line of your code and it work just fine.)

.Range(.Cells(lastd, 1), .Cells(lastd + lastrow - 2, 7)) = inarr