Абсолютный выбор 1-й пустой ячейки в столбце А таблицы

Question

У меня есть лист, на котором я отслеживаю снятие средств и платежи моим кредиторам. Я получил его, чтобы скопировать необходимую информацию с 1 листа на стол. Однако я не могу найти абсолютную последнюю пустую ячейку в столбце A таблицы. вот код: '' '

Private Sub CommandButton1_Click()
Dim MEx As Worksheet, ExT As Worksheet
Dim lr As Long
Set MEx = Sheets("Monthly Expenses")
Set ExT = Sheets("Tracking")
ExT.Activate
lr = ExT.Cells(Rows.Count, 2).End(xlUp).Row + 1
ExT.Range("A" & lr).Value = MEx.Range("B2").Value 'Date
ExT.Range("B" & lr).Value = MEx.Range("N5").Value 'Deposit
ExT.Range("C" & lr).Value = MEx.Range("H15").Value 'ATM Fees
ExT.Range("D" & lr).Value = MEx.Range("H14").Value 'Withdrawn
ExT.Range("E" & lr).Value = MEx.Range("P4").Value 'Exchange Rate
ExT.Range("F" & lr).Value = MEx.Range("Q4").Value 'Actual Rate
ExT.Range("G" & lr).Value = MEx.Range("D23").Value 'Exchanged To Solis
ExT.Range("H" & lr).Value = MEx.Range("N19").Value 'UMB-Balance
ExT.Range("I" & lr).Value = MEx.Range("N23").Value 'PayPal
ExT.Range("J" & lr).Value = MEx.Range("P23").Value 'PayPal Balance
ExT.Range("K" & lr).Value = MEx.Range("N22").Value 'Capital One
ExT.Range("L" & lr).Value = MEx.Range("P22").Value 'Capital One Balance
ExT.Range("M" & lr).Value = MEx.Range("N24").Value 'Avant Loan
ExT.Range("N" & lr).Value = MEx.Range("P24").Value 'Avant Loan Balance
ExT.Range("O" & lr).Value = MEx.Range("N25").Value 'American Express
ExT.Range("P" & lr).Value = MEx.Range("P25").Value 'American Express Balance
ExT.Range("Q" & lr).Value = MEx.Range("N26").Value 'Petal
ExT.Range("R" & lr).Value = MEx.Range("P26").Value 'Petal Balance
ExT.Range("S" & lr).Value = MEx.Range("N27").Value 'MileStone
ExT.Range("T" & lr).Value = MEx.Range("P27").Value 'MileStone Balance
ExT.Range("U" & lr).Value = MEx.Range("N28").Value 'Premier
ExT.Range("V" & lr).Value = MEx.Range("P28").Value 'Premier Balance
ExT.Range("W" & lr).Value = MEx.Range("N29").Value 'Scott
ExT.Range("X" & lr).Value = MEx.Range("P29").Value 'Scott Balance
ExT.Range("Y" & lr).Value = MEx.Range("N30").Value 'Blank
ExT.Range("Z" & lr).Value = MEx.Range("P30").Value 'Blank Balance

' '' '

Иногда я делаю записи вручную, я помещаю дату в столбец A, а затем заполняю соответствующую информацию в другие столбцы. Если у них нет записи, я оставляю их пустыми.

У меня было несколько строк с датой, но очень мало в других столбцах 3 записи. Сегодня я использовал командную кнопку, и она заполнила ряд над несколькими, которые не были полными. Таким образом, необходимость в этой формуле искать специально для первой пустой ячейки в столбце А.

Любое исправление для этого будет с благодарностью.