Find Last Column With Data

[gav0101]

I'm writing a macro to load a days data and calculate/summerize the results. The first step is to take yesterdays data and move it out of the calculation columns so I can clear yesterdays data. I want to copy yesterdays calculated results to the first column from the left that is blank.

Yesterday I pasted data in a worksheet A. In a worksheet B, columns B3:D500 calculate/summarize the data based on the formulas I've entered.

Today I want to take the range B1:D500 in Worksheet B and paste the data and formats starting with the first blank column in Worksheet B.

For example today I would paste B1:D500 in E1:G500. Tomorrow I would paste B1:D500 in H1:J500, the next day I would paste B1:D500 to K1:M500.

This is what I've been working with, but my syntax is wrong.

Range("Range(("IU").End(xlToLeft).Column)&:1").Select