copy rows
Remark: I haven't tested but it should be ok
Dim x as integer
x=1
application.screenupdate = false
do
if cells(x,2) = "total" then 'Caps sensitive
cells(x,2).entirerow.copy
sheets(2).select
cells(65000,1).end(xlup).offset(1,0).select
activesheet.paste...