mlastrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
'Do your filter paste results
'
'reset mlastrow to the new last row
mlastrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
'Do your filter paste results

"Walter" wrote:

I have a group of spreadsheets in a workbook, which I filter at the end of
each week. What I am now trying to do is to copy that filtered data to
another spreadsheet that I call €œWeekly Totals€�, all sheets are in one
workbook.

I have create code that will filter each sheet the way I want to see the
information, but when I copy it over to my €œWeekly Totals€� sheet, this then
is where I am having the problem.

Sheet 1 has four lines of filtered data that is copied by macro to the sheet
€œWeekly Totals€�, now when I want to copy sheet 2s information, which only
has one line of filtered data in this example, it will erase sheets one data,
and copy sheet two data in the first row. Im starting this copy process to
cell A1

Some of the code that I have tried are the following:

Sub Macro1()
Dim mlastrow as Integer
mlastrow=Cells(Rows.Count,€�A€�).End(xlUP).Row + 1
End Sub

Or

Debug.Print Activesheet.Range(€œA65536€�).End(xlUp).Row + 1

Or

Sub Macro1()
Dim mlastrow as Range
Mlastrow=Cells(Rows.Count,€�A€�).End(xlUp).Row
End Sub

Why are the above formulas not working the way I expect them to work?

Walter