VBA Code to remove Data embedded in the "Pick From Drop Down List"

[p45cal]

you could try something like:

With Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("A1:A100000"))
  .Value = .Value
  .SpecialCells(xlCellTypeBlanks).EntireRow.Select    'Delete
End With

but this will convert numbers as text to numbers (messy if they're, say, account numbers beginning with leading zeroes you want to keep).
See more suggestions at https://stackoverflow.com/questions/...ls-arent-blank