Hỏi: xuất giá trị từ mảng ra sheet khi đang có lọc + cột đang ẩn (2 người xem)

[HyperLink]

mình có đoạn Macro sau:

Sub test_111()
Dim Arr(1 To 8) As Variant
    Arr(1) = "1"
    Arr(2) = "2" 'cot. dang an?
    Arr(3) = "3"
    Arr(4) = "4"
    Arr(5) = "5"
    Arr(6) = "6"
    Arr(7) = "7"
    Arr(8) = "8"
    '-------------
    Range("A9:H9").ClearContents
    Range("A9").Resize(, UBound(Arr)) = Arr
End Sub

code xuất ra đúng khi:
- đang lọc + cột ko ẩn
- nhả lọc + cột ẩn
=========
Nếu đang lọc + cột ẩn thì xuất mảng Arr ra ngoài sheet không còn đúng nữa ?
Mong mọi người giúp mình khắc phục lỗi này nhé !