Dim lr As Long, ws As Worksheet, ans As Long
Sheets.Add(after:=Worksheets(Sheets.Count)).Name = "Master"
lr = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row
ans = InputBox("How many rows do you want copied ? ")
For Each ws In Worksheets
If ws.Name <> "Master" Then
.Rows("1:" & ans).Copy Sheets("Master").Range("A" & lr)
lr = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row + 1
What is this s'posed to mean ??
It works great and I guess beggers can't be choosy
It just means don't ask for more than you already have....lol
I thought it worked, and for the most part it did..... but I get 260 rows as expected (20x13)... but 20 rows are blank except a 0 in the E column. I'm going to run everything again. I'm dealing with 13 million entries in 13 sheets. I'll try the code above
I'm guessing you asked for 20 rows, but some sheets have some empty rows amongst that 20 requested..
those rows probably contain formulas that are returning zero, because it can't find a result for said formula !