Dim rgLast As Range Set rgLast = Range("A1").SpecialCells(xlCellTypeLastCell) ' Get the last col & Row Dim iLRow As Long, iLCol As Long iLRow = rgLast.row ' assign the last row iLCow = rglast.Column ' assign the last colAfter this you will be able to reference the values like any other sheet by looping through your desired range.
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams