use strict;
use warnings;
use Win32::OLE;

my $xl = Win32::OLE->new('Excel.Application');
$xl->{Visible} = 1;

my $wb = $xl->Workbooks->Add;
my $ws = $wb->Sheets(1);
$ws->Cells(1, 1)->{Value} = "A"; $ws->Cells(1, 2)->{Value} = "E";
$ws->Cells(2, 1)->{Value} = "B";
$ws->Cells(3, 1)->{Value} = "C";
$ws->Cells(4, 1)->{Value} = "D"; $ws->Cells(4, 2)->{Value} = "F";

    my $end = $ws->UsedRange->Rows->{Count};

    for (my $count = $end; $count > 1; $count--) {
		my $cell = $ws->Cells($count, 2);
        if ($cell->{Value} eq "") {
            $cell->EntireRow->Delete;
        }
    }