VBA - Need Help Please - not all rows are copied

I suspect that maybe you have blanks in column A. The macro is using the ctrl down function to "find" the end of the data but that will find the end of 'continuous' data. ALSO you are using COUNTA function so even if it goes to the end and there are any blanks in the column that count will not count them and hence your column reference will be short that many.  Maybe use something like this instead:

count = Activesheet.cells(activesheet.usedrange.rows.count+1,1).End(xlUp).row
I also see you ".activate" in multiple cases, which I recommend against. Just use the reference to that sheet directly or assign that sheet to a variable and use that variable. You already do that in some cases.
Also, maybe you could explain to me what you are doing with these lines:
list = Application.Transpose(list)
list = Join(list, ",")
list = Split(list, ",")
I ask to either a) learn something new or b) recommend a change to make it more efficient