Массив с Cells () в качестве параметров

Question

Я создал массив, содержащий местоположения Cells () в качестве параметров.

Когда я запускаю приведенный ниже код, он не получает эти параметры, как я надеюсь. Есть ли что-то, что я делаю неправильно, или то, что я пытаюсь сделать, не работает таким образом? Другие массивы, которые вы видите, работают соответственно, поэтому, пожалуйста, игнорируйте их.

Dim varDept As Variant
Dim varSheet As Variant
Dim varCell As Variant 
Set DRag = Range("D2:D200")


varCell = Array(Cells(9, 1), Cells(15, 1), Cells(21, 1))

For Each Custom In DRag
    If PDrag = Empty And Custom = varDept(0) And Custom.Offset(0, -1) = "551098218" Then
        PDrag = Custom.Address(0, 0) & "," & Custom.Offset(0, -3).Address(0, 0)
    ElseIf Custom = varDept(0) And Custom.Offset(0, -1) = "551098218" Then
        PDrag = PDrag & "," & Custom.Address(0, 0) & "," & Custom.Offset(0, -3).Address(0, 0)
    End If
Next Custom

If PDrag = Empty Then Exit Sub

PDrag = Replace(PDrag, "D", "E")
Range(PDrag).Select
Selection.Copy
Worksheets(varSheet(0)).Activate
varCell(0).Select
Selection.PasteSpecial xlPasteAll