Copied cell not showing all text

[andyred12]

Hi,

I have a shiftlog workbook where the text in the log is transferred to another worksheet. Trouble is that if there is a lot of text in the logsheet the row height on the recieving sheey seems to stop at 300 pixels. Is there a way of transferring the whole text? Here is a section of the VBA which copies thre rows (thanks Mumps). I have attached the workbook so the full code can be seen.

Case "priority"
            Range("A" & Target.Row).Resize(, 8).Copy Sheets("Priority Work").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

Thanks

Andy