macro to copy to new column each time used

Originally Posted by deanomcbeano27

These will not necessarily be the first blank columns available.

That's a very well described need. Thanks for such clarity.

Try this:

Sub CopyRangeProgressively()
Dim LC As Long

    LC = Cells(9, Columns.Count).End(xlToLeft).Column + 1
    
    If LC < 20 Then LC = 20
    
    Range("M9:M49").Copy Cells(9, LC)

End Sub