Need macro for all open workbooks 1st columnc copy

If you're posting code, please wrap it in code tags as described here.

Typo, sorry

Please replace with this

Set rPaste = .Range("A65536").End(xlUp).Offset(1, 0)

Paste this code into an empty workbook and run it.