Поиск последней ячейки в Excel - VB

Формулировка задачи:

К сожалению, пока самостоятельно не получается. Имеется таблица Columns A-E. Заполняю её макросами. После выполнения очередного макроса, необходимо находить последнюю непустую ячейку в этом диапазоне и ставить курсор в столбец "А" ниже нее на 2 строки. Константин

Решение задачи: «Поиск последней ячейки в Excel»

textual
                            Листинг программы 
                        

                            <font color="blue">Function</font> RealLastRowHide(WB <font color="blue">As</font> Worksheet) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Dim</font> UsR <font color="blue">As</font> Range, K <font color="blue">As</font> <font color="blue">Long</font>, I <font color="blue">As</font> <font color="blue">Long</font>, FreeC <font color="blue">As</font> <font color="blue">Long</font>
  RealLastRowHide = <font color="darkblue"><b>1</b></font>
  <font color="blue">Set</font> UsR = WB.UsedRange
  FreeC = UsR.Column + UsR.Columns.Count
  <font color="blue">If</font> FreeC > <font color="darkblue"><b>256</b></font> <font color="blue">Then</font> FreeC = <font color="darkblue"><b>256</b></font>
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
  <font color="blue">For</font> I = UsR.Row + UsR.Rows.Count - <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>1</b></font> <font color="blue">Step</font> -<font color="darkblue"><b>1</b></font>
    K = WB.Rows(I).RowDifferences(comparison:=WB.Cells(I, FreeC)).Row
    <font color="blue">If</font> Err.Number = <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
      RealLastRowHide = I: <font color="blue">Exit</font> <font color="blue">Function</font>
    <font color="blue">Else</font>
      Err.Clear
    <font color="blue">End</font> <font color="blue">If</font>
  <font color="blue">Next</font> I
<font color="blue">End</font> <font color="blue">Function</font>
                        