Как установить динамическую конечную ячейку при использовании ActiveCell.Offset для начальной ячейки?

Question

Я использую таблицу для извлечения информации из отдельных рабочих книг. В настоящее время таблица имеет заданную конечную ячейку, но я извлекаю слишком много информации.Я хочу установить в конечной ячейке последнюю строку данных в столбце D. Мне нужна помощь в изменении кода, чтобы установить для конечной ячейки динамический диапазон.

Я уже пытался использовать lastRow = .Cells(.Rows.Count, col).End(xlUp).Rowно я продолжаю получать

ошибка компиляции

на предыдущем .Offset, который является недействительным или неквалифицированным указателем

Sub GetData()
    Dim strWhereToCopy As String, strStartCellColName As String
    Dim strListSheet As String
    Dim strCopySheet As String

    strListSheet = "List"

    On Error GoTo ErrH
    Sheets(strListSheet).Select
    Range("B2").Select

'this is the main loop, we will open the files one by one and copy their data into the masterdata sheet
    Set currentWB = ActiveWorkbook
    Do While ActiveCell.Value <> ""

        strFileName = ActiveCell.Offset(0, 1) & ActiveCell.Value
        strCopyRange = ActiveCell.Offset(0, 2) & ":" & lastRow = 
.Cells(.Rows.Count, col).End(xlUp).Row
        strWhereToCopy = ActiveCell.Offset(0, 4).Value
        strCopySheet = ActiveCell.Offset(0, 6).Value
        strStartCellColName = Mid(ActiveCell.Offset(0, 5), 2, 1)

        Application.Workbooks.Open strFileName, UpdateLinks:=False, 
ReadOnly:=True
        Set dataWB = ActiveWorkbook

        Sheets(strCopySheet).Select
        Range(strCopyRange).Select
        Selection.Copy

        currentWB.Activate
        Sheets(strWhereToCopy).Select
        lastRow = LastRowInOneColumn(strStartCellColName)
        Cells(lastRow + 1, 1).Select

        Selection.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
        Application.CutCopyMode = False
        dataWB.Close False
        Sheets(strListSheet).Select
        ActiveCell.Offset(1, 0).Select
    Loop
    Exit Sub

ErrH:
    MsgBox "It seems some file was missing. The data copy operation is not 
complete."
    Exit Sub

End Sub