need help with short & sweet macro

[ginahoy]

I rarely use macros so when I need one, I can never remember any of the syntax. I'd be grateful if someone could assist with building a macro that implements this pseudocode and add to the context menu:

> search selected column for empty cells and delete and shift cells left if empty

thx

 

[johnnyL]

How about:

Sub SelectedColumnDeleteBlanksShiftLeft()
    Columns(Split(Cells(1, ActiveCell.Column).Address, "$")(1)).SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
End Sub

 

[JEC]

Above is too heavy, try this instead

Sub jec()
ActiveSheet.UsedRange.Columns(ActiveCell.Column).SpecialCells(4).Delete xlToLeft
End Sub

 

[Fluff]

Or even

ActiveCell.EntireColumn.SpecialCells(xlBlanks).Delete xlToLeft

 

[ginahoy]

Thanks for the assist! Grateful, always.

 

[Fluff]

Glad we could help & thanks for the feedback.