Finding the last non bank cell in a column

something like

LastCellInColumnA = Range("A65536").End(xlUp).Offset(1, 0).Address

Just subst the column ......