Advance Filter - define Dynamic CopyToRange below last row of existing data

Attempting to write VBA code to perform two separate Advance Filtering procedures using differing data ranges & criteria ranges. Advance Filter procedure #1 CopyToRange = worksheet2 cell A1:E1. The amount of data copied with this procedure will comprise 1 to 15 rows. I would like Advance Filter procedure #2 to copy data from Worksheet1 to Worksheet2 using a dynamic "CopyToRange". I would like the dynamic "CopyToRange" to identify the last row of data in Worksheet1 columns A:E then select the 2nd blank row below the existing data copied via Advanced Filter procedure 1. I have attempted to use but do not know how to insert the VBA code into the Advance Filter code.

Following is the code I have tried to use which does not work. Errors out during 2nd Advance Filter procedure.

Please Login or Register  to view this content.

You have to use Set with range variables.

Please Login or Register  to view this content.

But it looks like you're actually using imaxrows as a Long variable.

Please Login or Register  to view this content.

^^If you dim imaxrows as a range, you can't add 2 to it as a range isn't a numeric variable.

Thank you!

I will give that a try!

Any luck with your code?