copy problem

W

WTG

Sorry to bother you guys again.

But I'm stuck, and you where all such a great help last time.

I have an invoice sheet and a Product Summary sheet.

I want to take the rows from my Invoice sheet and add them to my
summary sheet.

My invoice sheet has 27 rows, but only some of the rows will actually
have items in them. When I click on a cmd button I want to take the
rows that have items in them and add the information to the bottom of
my summary list.

I've tried macros, and using a dynamic name range.. but I can't get it
to work :(

Can anyone help me with this?

Thanks

Wally
 
W

WTG

Thanks Joel,

I tried it, but I kept coming up with debug errors. and I don't know
much about what I was doing. :(

I have been searching and Came up with this,

Private Sub CommandButton1_Click()
LastRow = Sheets("Invoice").Range("A65536").End(xlUp).Row + 1
Range("A6:H32").Select
Selection.Copy
Sheets("Summary").Select
Range("LastRow").Select
ActiveSheet.Paste

End Sub

But this gives me debug errors to :(
 
D

Dave Peterson

How about:

Private Sub CommandButton1_Click()
LastRow = Sheets("Invoice").Range("A65536").End(xlUp).Row + 1
me.Range("A6:H32").Copy _
destination:=sheets("invoice").cells(lastrow,"A")
End Sub
 
Top