Select Multiple individual cells with variable column

[macfam929]

This has been one of the most frustrating coding days ever!! TIA for all of your help!

I want to select multiple individual cells to delete. If I am calling them out then

Range("F5, F7, F9, ....").Select 
Selection.Delete Shift:=xlUp

works. however I want to replace F with "LastCol + 1" where LastCol is:

LastCol = Cells.Find(What:="*", _
    SearchDirection:=xlPrevious, _
    SearchOrder:=xlByColumns).Column

I have tried:

Range(Cells(5, LastCol + 1), Cells(7, LastCol + 1)).Select

However that select row 6 as well, and if I try to add a 3rd argument to that it errors out.

Thanks for all of your help.

 

[VoG]

Try

Union(Cells(5, LastCol + 1), Cells(7, LastCol + 1)).Delete Shift:=xlShiftUp

 

[macfam929]

Thank you!! That works great! You have been my saving grace today and kept me from wanting to bash my head into a wall!!!