Hi Dave Peterson,

just a little improvement: EXCEL behaves ambiguous regarding the last
used cell. I prefer

Set lastCell = ThisWorkbook.Worksheets(shtName) _
.Range(ColName & ":" & ColName) _
.SpecialCells(xlCellTypeLastCell)

for finding the last Cell. The Rest is a loop looking for Value=""

LupusSilvae