Giúp viết code tác dụng vào Range Name do người dùng đã định nghĩa trước (1 người xem)

[thangcola113]

Em có vùng muốn Chạy code (vùng bôi màu đỏ), và đã đặt tên là QTV_07_DELR.
Nhờ các anh viết giúp code xóa dòng rỗng cho phạm vi Range Name đã định nghĩa trên.
Em có thử record đoạn code sau:

Application.GoTo Reference:="QTV_07_DELR"
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

Nhưng đoạn code trên sẽ lỗi khi chạy lần thứ 2 (lúc này vùng chọn không còn Cell rỗng).
Nhờ các bác chỉnh giúp em để khi chạy lần thứ 2, hay 3... thì code không bị lỗi

 

[dhn46]

Code dưới đây cũng tương tự thuật toán của bạn chỉ thêm phần bắt lỗi, bạn tham khảo nhé

Sub DelRow()
    Dim Rng As Range
    Set Rng = Range("QTV_07_DELR")
    If WorksheetFunction.CountBlank(Rng) > 0 Then
        Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
End Sub