If AppendData is false, you'll never open a file, yet the code continues. That's bad.
I can't envision why you would set the row and column numbers as you do. And if SelectionOnly is not true, you wouldn't set them at all.
Why do you have the OnError statement? The first step if you get errors is to find out why. Start by taking it out.
Take out Application.ScreenUpdating = False too, until the code is stable.
Edit: And in fairness to Chip, that code is modified substantially from the link. Did you try his code as-is?
Bookmarks