VBA e-mail lege waarden niet meenemen

Sub Mail()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Don't forget to copy the function RangetoHTML in the module.
'Working in Excel 2000-2016
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
    Dim StrBody As String
    Dim StrBody2 As String

    Set rng = Nothing
    On Error Resume Next
    'Only the visible cells in the selection
    Set rng = Selection.SpecialCells(xlCellTypeVisible)
    'You can also use a fixed range if you want
    Set rng = Sheets("Blad2").Range("A1:J30").SpecialCells(xlCellTypeVisible)
  
   
    On Error GoTo 0

Set rng = Sheets("Blad2").Range("A1:H30").SpecialCells(xlCellTypeConstants)

Dim xRg As Range.
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A30")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
         
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True

columns(1).specialcells(4).entirerow.hidden = true