Try
![]()
With Worksheets("Sheet1") .Range("A8:J15").Copy .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).pastespecial(xlpastevalues) End With
Try
![]()
With Worksheets("Sheet1") .Range("A8:J15").Copy .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).pastespecial(xlpastevalues) End With
If I have helped, Don't forget to add to my reputation (click on the star below the post)
Don't forget to mark threads as "Solved" (Thread Tools->Mark thread as Solved)
Use code tags when posting your VBA code: [code] Your code here [/code]
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks