On Wednesday, March 25, 2015 at 11:59:03 PM UTC-7, Claus Busch wrote:
Hi Howard,

Am Thu, 26 Mar 2015 07:55:00 +0100 schrieb Claus Busch:

If lRow = 1 Then
Set wkRng = .Rows(f.Row & ":" & l.Row)
wkRng.Copy Sheets("Master").Range("A1")
Else
Set wkRng = .Rows(f.Row & ":" & l.Row)
wkRng.Copy Sheets("Master").Cells(lRow + 2, 1)
End If

sorry, forgot the headers:

If lRow = 1 Then
Set wkRng = .Rows(f.Row & ":" & l.Row)
Set myRng = Application.Union(.Rows(1), wkRng)
myRng.Copy Sheets("Master").Range("A1")
Else
Set wkRng = .Rows(f.Row & ":" & l.Row)
Set myRng = Application.Union(.Rows(1), wkRng)
myRng.Copy Sheets("Master").Cells(lRow + 2, 1)
End If


Regards
Claus B.


Oh boy, I would have never sorted that out.

Works mighty fine.

Thanks again.

Howard