Copying data on If condition, and then pasting to another workbook

Hi, I was wondering if someone knows what I am doing wrong with the below code. I want to copy the data from column 51 in the Activesheet on the condition that its value does not equal 0, then paste it into cell A1 a workbook called Listbook. I am getting the below error when executing the code:

Run time error '9'
Subscript out of range

Please Login or Register  to view this content.

Thanks for your kind consideration

Do you want to copy every cell in Column 51 that has a Value <> 0 and paste that into the first empty cell in Column A of the first sheet in a Workbook called "ListBook" that is open also?

Hi jolivanes. Yes, that's exactly it.

Try this. Change references if and where required.
Code assumes that you have headers (as you should have) in the first Row of both Sheets

Please Login or Register  to view this content.

Did the supplied suggestion Work?
Let us know so I can "retire" the trial workbooks.
Thanks

Hi yes, it works great. Thank you so much

Thanks for the update.
It's always nice to hear that suggestions work
Good Luck