#!perl

use strict;
use warnings;

use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';
use File::Copy;

$Win32::OLE::Warn = 3; # Die on Errors.

#Open the needed file from server location
my $excelfile = '\\\\ServerName\\FolderName\\FolderName\\FolderName\\FileName.csv';

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
        || Win32::OLE->new('Excel.Application', 'Quit');

#Open the file needed and activate the worksheet for manipulation ~ Try to get a input box for entry of Branch name to open correct file...
my $Book = $Excel->Workbooks->Open($excelfile);
my $Sheet = $Book->Worksheets(1);
   $Sheet->Activate();
 
#Sort the file based on "Call Type" Column (F is column number 5, as A is 0)     
   $Excel->sort_data('WorksheetName',5,'DESC');

##</code><code>##

#Find Last Column and Row
my $LastRow = $Sheet->UsedRange->Find({What=>"*", SearchDirection=>xlPrevious, SearchOrder=>xlByRows})->{Row};
my $LastCol = $Sheet->UsedRange->Find({What=>"*", SearchDirection=>xlPrevious, SearchOrder=>xlByColumns})->{Column};