не удалось получить свойство countif класса функции worksheet

Question

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

Я также пытался преобразовать оба формата моего столбца до countIf

    With col_member_id
        .NumberFormat = "General"
        .Value = .Value
    End With

    With col_remarks
        .NumberFormat = "General"
        .Value = .Value
    End With

Так вот мой код

Sub CheckValue()

    Dim tbl_data As ListObject, _
        tbl_member As ListObject, _
        col_member_id As Range, _
        col_id As Range, _
        col_done_by As Range, _
        col_remarks As Range, _
        col_type As Range, _
        col_amount As Range, _
        col_payment As Range

    Set tbl_data = ActiveWorkbook.Worksheets("Sheet1").ListObjects("Data")
    tbl_data.ListColumns.Add.Name = "Payment"

    Set tbl_member = ActiveWorkbook.Worksheets("Member Names").ListObjects("tbl_member")
    Set col_member_id = tbl_member.ListColumns("MEMBER ID").Range
    Set col_id = tbl_data.ListColumns("IDs").Range
    Set col_done_by = tbl_data.ListColumns("Done By").Range
    Set col_remarks = tbl_data.ListColumns("Remarks").Range
    Set col_type = tbl_data.ListColumns("Type").Range
    Set col_amount = tbl_data.ListColumns("Amount").Range
    Set col_payment = tbl_data.ListColumns("Payment").Range

    For i = 1 To col_id.Cells.Count + 1

        If (Cells(i, col_done_by.Column).Value = "gg1") And _
            (Cells(i, col_amount.Column).Value > 0) And _
            (Application.WorksheetFunction.CountIf(col_member_id, Cells(i, col_remarks.Column).Value) > 0) And _
            ((Cells(i, col_type.Column).Value = "ww") Or (Cells(i, col_type.Column).Value = "tt")) Then
            Cells(i, col_payment.Column).Value = "gg1 done"
        End If

    Next i

End Sub