Find last column with Data and copy

[jl2509]

Hello

I have a data collection form for Financial Audits which is created on a work sheet, rather than have many tabs for the audits, I have decided to Horizontally stack the audits within 1 worksheet. They are for the same company so this is a reasonable method for me.

However, I am trying to add a new audit sheet (Copy of last Audit) automatically via a button with a macro assigned

Any ideas how I can check for the last column with data in it, copy 8 columns backwards including the last column and paste the data, 1 column after the last data column?

ie Last data column is Column P, copy back from Column P to Column I and paste to Column Q

When I do this manually, I select Columns P to Column I, copy the selected columns, select Column Q, and paste

The column references obviously change as more audits are completed.

Appreciate any ideas

Thank you

 

[Fluff]

How about

Sub CopyInsertCols()

    Range("B1").Resize(, 8).EntireColumn.Copy
    Range("B1").EntireColumn.Insert

End Sub

 

[jl2509]

Nice

Thank you for the help

 

[Fluff]

Glad to help & thanks for the feedback