Диапазон смещения для массивов

Question

так что в отношении предыдущего вопроса я пытаюсь зависнуть на массивах, но я не совсем понимаю их.

В этом примере, почему я не могу выполнить команду с командой? Это дает мне ошибку, что объект требуется

Dim aRng As Variant
aRng = Range("A4:A" & Cells(Rows.Count, "A").End(xlUp).Row)
aRng = Application.WorksheetFunction.Transpose(aRng)

    'Copy Arng to Col C, and remove duplicates
    With aRng
        .Copy .Offset(, 2)
        .Offset(, 2).RemoveDuplicates Columns:=1, Header:=xlNo
        With aRng.Offset(, 2)
        If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftUp
    End With
End With