400 Error when trying to Paste into an Excel Table

I want to paste values into an Excel Table that is on a protected sheet.
I've put this code together which works, but only when I specify in the code where to copy from. The problem is that I want to specify what to copy before I run the code
If I just remove the line which copies the data I get a 400 error

Sub Transfer()

ActiveSheet.Unprotect ""


Application.ScreenUpdating = False

Sheets("TR").Range("A1:A4").Copy 'When I exclude this line I get a 400 error
Sheet2.Range("B" & Rows.Count).End(3)(2).PasteSpecial xlValues

Application.CutCopyMode = False
Application.ScreenUpdating = True

ActiveSheet.Protect ""

End Sub

eddie welcome to the forum

1. Code Tags Added
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html

(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

2. Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important.

(Note: this requirement is not optional. No help to be offered until the link is provided.)

copy/paste here, but you may need to fenangle it with some padding spaces so the bot doesnt see it as a link