Problema con macro

Ho questo codice che vorrei non mi riconosca solo celle vuote ma riconosca anche il contenuto delle celle e compilando la “tabella” sotto

Dim myRow As Range
Dim r As Range
Dim oArea As Range
Dim riga_iniz As Long
Dim riga As Long
Dim colonna As Long
    riga_iniz = 2
    riga = 0
    colonna = 2
    For Each myRow In Range("A1").CurrentRegion.Rows
     Set r = myRow.Offset(1, 1).Resize(, myRow.Cells.Count - 1)
        If WorksheetFunction.CountA(r) > 0 Then
            Set r = r.SpecialCells(xlCellTypeConstants)
            For Each oArea In r.Areas
                With Range("myTable")
                    .Cells(riga_iniz + riga, colonna) = oArea.Cells.Count     'giorni
                    .Cells(riga_iniz + riga, colonna + 1) = oArea.Cells(1)    'causale assenza
                    .Cells(riga_iniz + riga, colonna + 2) = Format(Cells(1, oArea.Cells(1).Column), "dd-mmm")  'giorno dal
                    .Cells(riga_iniz + riga, colonna + 3) = Format(Cells(1, oArea.Cells(oArea.Cells.Count).Column), "dd-mmm")  'giorno al
                End With
                riga = riga + 1
                If riga = 3 Then
                    riga = 0
                    colonna = 6
                End If
            Next
        End If
        riga_iniz = riga_iniz + 3
        riga = 0
        colonna = 2
    Next
    MsgBox "Fatto :)"

Grazie a chi potrà aiutarmi