select last column w/ data

[squidmark]

I can't believe I can't find this somewhere already discussed (maybe I'm just the only one who doesn't know how to do it), but I need to select the last column that has any data in it, and then insert a column just before it.

Can anyone help me out?

 

[VoG]

Try

Sub InsColumn()
Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).EntireColumn.Insert
End Sub

 

[Richard Schollar]

VBA?

Dim rngLstCol As Range
 
Set rngLstCol = Cells.Find(What:="*",SearchDirection:=xlPrevious,SearchOrder:=xlByColumns,LookIn:=xlFormulas,LookAt:=xlWhole)
 
If Not rngLstCol Is Nothing Then rngLstCol.EntireColumn.Insert

 

[squidmark]

Try

Sub InsColumn()
Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).EntireColumn.Insert
End Sub

That was perfect. Thanks.