Pull data from changing column each day

I have a pretty complicated (for me) spreadsheet that I am working on. I am stuck on the final piece. Each day, sales are updated in a spreadsheet, and it creates an additional column. In one of my macros, I go to the sales tab, click on a blank cell, and than CMD-Left Arrow to get to the last cell in the column, and than copy the copy and have the macro do its work. Problem is the macro doesnt see it as the last column, it sees it as column F or whatever. Is there a way to have it pull data from the last column, which changes each day in a macro?

Range("P2").Select
Selection.End(xlToLeft).Select
Range("H2:H5").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-1
Range("I2").Select
ActiveSheet.Paste
Application.CutCopyMode = False

The H2:H5 is the issue. Each day a column will be added, so tomorrow it will I, than J, etc. I thought by clicking on a cell than CTRL and left arrow would "trick" the macro into doing what I want, but I am incorrect.

This is what Im (trying to) use now.