BTW, I sorted out the problem with ...

the left to right scroll becomes VERY small because in makes ALL columns "A:XFD" viewable
... by changing ...

        Range(ActiveCell, ActiveCell.EntireRow.Cells(1, Columns.Count).End(xlToRight)).Copy
... to ...

        Range(ActiveCell, ActiveCell.EntireRow.Cells(1, Columns.Count).End(xlToLeft)).Copy
Thanks in advance.

Kind regards,
PAB