Add a row to the bottom of a worksheet.

B

Box666

I have a macro that summaries data on sheet1, I then want it to append
this data in the form of a new row to the bottom of sheet2.

Is there a formula that I can use to locate the next blank row, or what
is the best way to achieve this please.
 
D

Dave Peterson

Maybe you could just copy and paste that row in your macro.

Option Explicit
sub testme()
dim DestCell as range
dim RngToCopy as range
'your code to get the summaries

'whatever row holds the
set rngtocopy = worksheets("sheet1").range("a999").entirerow

with worksheets("sheet2")
set destcell = .cells(.rows.count,"A").end(xlup).offset(1,0)
end with

rngtocopy.copy _
destination:=destcell

'or
rngtocopy.copy
destcell.pastespecial paste:=xlpastevalues

end sub

I used column A of sheet2 to find the next available row.
 
Top