For the life of me I can not figure out why this code will work fine
if more than 2 or more rows are Copied and Pasted. But if only one row
is copied and pasted It will not work. Any help at all, please! Thanks
in advance!
The code stops at ActiveSheet.Paste

Private Sub CommandButton2_Click()

'Copy contents from Worksheet2 Columns A & B
Sheets("Worksheet2").Select
Range("B3").End(xlDown).Select
Temp1 = ActiveCell.Address
Range("A3" & ":" & Temp1).Select
Selection.Copy
'Paste contents on next available blank row on Part Numbers Surface
Area in Columns A & B
Sheets("Part Numbers Surface Area").Select
Sheets("Part Numbers Surface
Area").Range("A2").End(xlDown).Offset(1).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False

End Sub

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to