K. Georgiadis
07-03-2005, 07:27 AM
In the following code, unique records are copied to a new range starting with cell A56. How can I amend this so that it just starts copying 3 rows down from the last populated row wherever that might be?
Sub filter_unique_records()
Sheets("Pivot Data").Select
Range("A3:I49").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"A56"), Unique:=True
End Sub
Sub filter_unique_records()
Sheets("Pivot Data").Select
Range("A3:I49").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"A56"), Unique:=True
End Sub