vba Elimina Righe Cella Non Vuota

Sub EliminaRigheCellaNonVuota()

Dim contar, foglio, leggicolonna, contenuto

Dim cosacancellare

'

Set foglio = Sheets(ActiveSheet.Name)

'

contar = Range(foglio.UsedRange.Cells(foglio.UsedRange.Rows.Count, 1).Address).Row

leggicolonna = ActiveCell.Column

 

'

While contar > 1

      contenuto = Trim(foglio.Cells(contar, leggicolonna).Value)

      '

      If Len(contenuto) > 0 Then

         foglio.Rows(contar).Delete

      End If

'

    foglio.Cells(contar, leggicolonna).Activate

    contar = contar - 1

Wend

'

End Sub