использовать значение последней ячейки в последнем столбце таблицы для запуска макроса VBA

Question

Я пробовал разные вещи, чтобы заставить это работать, и я не могу понять это. Используя таблицу, я пытаюсь использовать VBA, чтобы взять значение последней ячейки в последнем столбце (в моем случае столбец H), и, если оно> 0, скопировать последнюю ячейку в столбце C (что не в диапазоне таблицы это просто обычная ячейка) до следующей ячейки ниже. Любая помощь будет принята с благодарностью. Это последний недостающий фрагмент этой головоломки, чтобы закончить sh эту книгу! У меня недостаточно репутации, чтобы опубликовать изображение, но я более чем готов послать изображение или книгу по электронной почте тому, кто захочет помочь.

Answer 1

Sub Test()

Dim ws as Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update
Dim lrH as Long, lac as Long

lrH = ws.Range("H" & ws.Rows.Count).End(xlUp).Row

If ws.Range("H" & lr) > 0 Then
    lrC = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
    ws.Range("H" & lrH + 1).Value = ws.Range("C" & lrC)
End If