A Range(Cells(elso, 1), Cells(usor, 5)).Copy sorban az 5 helyett a saját oszlopaid számát add meg.

Valamiért nálam ebben a makróban nem működik az utolsó oszlop kikeresése, sem

uoszlop = Range("IV").End(xlToLeft).Column, sem
uoszlop=ActiveSheet.UsedRange.Columns.Count formában, azért írtam be fixen.