Mong các a chỉ giúp về lập trình VBA

Sub anhiendong()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  For ir = Selection.Count To 1 Step -1
      If Selection.Item(ir) = x1Blanks Then _
         Selection.Item(ir).Rows.Hidden = True
  Next ir
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
 End Sub

Sub HideRows()
    Dim iLastRow As Long
    Dim i As Long
     
    With ActiveSheet
         
        iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = 1 To iLastRow
            Rows(i).Hidden = Application.CountA(Cells(i, "A").Resize(, 4)) = 0
        Next i
         
    End With
     
End Sub


Nếu muốn nhấn mạnh điêu kiện là . Ô của cột A ,B , C  và D mà blank thì hide

Sub HideRows()
    Dim rRange As Range, rCell As Range
    Dim strVal As String
     
    Set rRange = Worksheets(1).Range("A1:A100")
     
    For Each rCell In rRange
        strVal = rCell & rCell(1, 2) & rCell(1, 3) & rCell(1, 4)
        rCell.EntireRow.Hidden = strVal = vbNullString
    Next rCell
     
     'A, B, C & D are empty.
     
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c4:c23")) Is Nothing Then
Dim c As Range
Dim firstAddress As String
    With Range("C4:C23")
        Set c = .Find(What:="", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.EntireRow.Hidden = True
                Set c = .FindNext(c)
            Loop While Not c Is Nothing
        End If
    End With
End If
End Sub

Sub hienrow()
Rows("4:23").Hidden = False
End Sub