Code to copy cells

[danay]

I am working on creating another report that I am stumped on. I have a macro that deletes the columns of data I do not need but the report can be ran up to 90 days so I could have up to 100 columns of data that I need to copy and the rows are limitless as well. What I need to be able to do is copy the data from worksheet "test data" (Based upon the last column and row with data and paste into worksheet called "Report" starting in A4. I was able to do it based upon row but not row and column.

Thanks

 

[jim may]

This could provide you with the Last non-blank Column Number in your sheet...

With ActiveSheet
LC = Range("a1").SpecialCells(xlCellTypeLastCell).Column
End With