'
' End(xlUp): dòng cuối cùng chứa dữ liệu trong vùng có tên là NamedRange và không bị ẩn
'
jLastVisibleRange = oSht.Range("NamedRange").Offset(oSht.Range("NamedRange").Rows.Count, 0).End(xlUp).Row
'
' End(xlDown): dòng cuối cùng có chứa dữ liệu trong vùng có tên là NamedRange và không bị ẩn
'
jLastVisibleRange2 = oSht.Range("NamedRange").End(xlDown).Row