Select last four columns with data?

[Human_doing]

Hi,

I wonder if anyone could please help with VBA code to find the last column of a worksheet with any cells with data and then select that row plus the three before it?

Reason is I am programming some VBA that will need to select the most recent 4 months data and copy/paste to another document. So if the worksheet is similar to this example:

Month 1 2 3 4 5
Entrys 3 4 5 6 7

I would only be looking at copying columns C-F, next month D-G etc.

Thanks

 

[VoG]

Try

Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Offset(, -3).Resize(, 4).EntireColumn.Select

 

[Human_doing]

Hi , thanks for your quick reply, yes that selects the final four columns, sorry I should've been a bit more specific though, I only wish to copy the cells in the columns that contain data?

Thanks

 

[VoG]

Maybe this

LC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
LR = Cells(Rows.Count, LC).End(xlUp).Row
Range(Cells(1, LC - 3), Cells(LR, LC)).Copy

 

[Human_doing]

Thanks that works perfectly, really appreciate your help.