[MarcoGG]

Da pulsante CommandButton1 :

Private Sub CommandButton1_Click()

    Dim cella As Range
    For Each cella In Range("A3:A8")
        If cella.Text = "" Then cella.EntireRow.Delete (xlShiftUp)
    Next

End Sub