Worksheets("Sheet1").Activate
    Range("X:X").AdvancedFilter xlFilterCopy, , Range("Z1"), True
The above code won't work on my machine is X1 is empty. Any idea why this is?