Cisco Support Community
cancel
Showing results for 
Search instead for 
Did you mean: 

Cisco Call Manager Call Detail Record Excel Macro

I finally found some online help from others suggesting a formula for calculating the start/end/duration time of calls (sorry, I don't have the sources).  I've incorporated these into an excel macro for exported CDR information.  Not only does this calculate the duration, but it also converts it into seconds/mins/hours based on the amount of time involved.  Hopefully you will find this useful.

***NOTE*** - The selection part may not cover all of your records, but it goes well over 200k rows.  Anymore than that and you'll need to paste the formula to the end.  Also, this utilizes the Eastern timezone.

I'll leave this open for editing if someone can imporve the macro, more power to you.  I'm a network guy, not a scripter by nature.

Cheers,

Carl

Sub CDRFull()

'

' CDRFull Macro

'

'

    Columns("AW:AW").Select

    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    Columns("AY:AY").Select

    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("AW1").Select

    ActiveCell.FormulaR1C1 = "Connect Time"

    Range("AY1").Select

    ActiveCell.FormulaR1C1 = "Disconnect Time"

    Range("AZ1").Select

    ActiveCell.FormulaR1C1 = "Duration"

    Range("AW2").Select

    ActiveCell.FormulaR1C1 = "=(((RC[-1]-(5*3600))/86400)+25569)"

    Range("AW2").Select

    Selection.Copy

    Range("AW3").Select

    ActiveWindow.ScrollRow = 319

    ActiveWindow.ScrollRow = 637

    ActiveWindow.ScrollRow = 1592

    ActiveWindow.ScrollRow = 2228

    ActiveWindow.ScrollRow = 2546

    ActiveWindow.ScrollRow = 2864

    ActiveWindow.ScrollRow = 3819

    ActiveWindow.ScrollRow = 4455

    ActiveWindow.ScrollRow = 4773

    ActiveWindow.ScrollRow = 5728

    ActiveWindow.ScrollRow = 6046

    ActiveWindow.ScrollRow = 6682

    ActiveWindow.ScrollRow = 7001

    ActiveWindow.ScrollRow = 7955

    ActiveWindow.ScrollRow = 8591

    ActiveWindow.ScrollRow = 8909

    ActiveWindow.ScrollRow = 9546

    ActiveWindow.ScrollRow = 10500

    ActiveWindow.ScrollRow = 12409

    ActiveWindow.ScrollRow = 13046

    ActiveWindow.ScrollRow = 13682

    ActiveWindow.ScrollRow = 14000

    ActiveWindow.ScrollRow = 15273

    ActiveWindow.ScrollRow = 15909

    ActiveWindow.ScrollRow = 16863

    ActiveWindow.ScrollRow = 17182

    ActiveWindow.ScrollRow = 17818

    ActiveWindow.ScrollRow = 19091

    ActiveWindow.ScrollRow = 20045

    ActiveWindow.ScrollRow = 20681

    ActiveWindow.ScrollRow = 21954

    ActiveWindow.ScrollRow = 22272

    ActiveWindow.ScrollRow = 22908

    ActiveWindow.ScrollRow = 23863

    ActiveWindow.ScrollRow = 25136

    ActiveWindow.ScrollRow = 26090

    ActiveWindow.ScrollRow = 27045

    ActiveWindow.ScrollRow = 27363

    ActiveWindow.ScrollRow = 29272

    ActiveWindow.ScrollRow = 30226

    ActiveWindow.ScrollRow = 31181

    ActiveWindow.ScrollRow = 32135

    ActiveWindow.ScrollRow = 33090

    ActiveWindow.ScrollRow = 34362

    ActiveWindow.ScrollRow = 34999

    ActiveWindow.ScrollRow = 35635

    ActiveWindow.ScrollRow = 36271

    ActiveWindow.ScrollRow = 37544

    ActiveWindow.ScrollRow = 38180

    ActiveWindow.ScrollRow = 39453

    ActiveWindow.ScrollRow = 40407

    ActiveWindow.ScrollRow = 41680

    ActiveWindow.ScrollRow = 42634

    ActiveWindow.ScrollRow = 44225

    ActiveWindow.ScrollRow = 46134

    ActiveWindow.ScrollRow = 46770

    ActiveWindow.ScrollRow = 49634

    ActiveWindow.ScrollRow = 51543

    ActiveWindow.ScrollRow = 53452

    ActiveWindow.ScrollRow = 55043

    ActiveWindow.ScrollRow = 56633

    ActiveWindow.ScrollRow = 57588

    ActiveWindow.ScrollRow = 59179

    ActiveWindow.ScrollRow = 61406

    ActiveWindow.ScrollRow = 62360

    ActiveWindow.ScrollRow = 63951

    ActiveWindow.ScrollRow = 64587

    ActiveWindow.ScrollRow = 66178

    ActiveWindow.ScrollRow = 68087

    ActiveWindow.ScrollRow = 70314

    ActiveWindow.ScrollRow = 72223

    ActiveWindow.ScrollRow = 75405

    ActiveWindow.ScrollRow = 77632

    ActiveWindow.ScrollRow = 80177

    ActiveWindow.ScrollRow = 82086

    ActiveWindow.ScrollRow = 83995

    ActiveWindow.ScrollRow = 84950

    ActiveWindow.ScrollRow = 86540

    ActiveWindow.ScrollRow = 87495

    ActiveWindow.ScrollRow = 89086

    ActiveWindow.ScrollRow = 89404

    ActiveWindow.ScrollRow = 90995

    ActiveWindow.ScrollRow = 92267

    ActiveWindow.ScrollRow = 93540

    ActiveWindow.ScrollRow = 94812

    ActiveWindow.ScrollRow = 95767

    ActiveWindow.ScrollRow = 97040

    ActiveWindow.ScrollRow = 98312

    ActiveWindow.ScrollRow = 99903

    ActiveWindow.ScrollRow = 101176

    ActiveWindow.ScrollRow = 103721

    ActiveWindow.ScrollRow = 104357

    ActiveWindow.ScrollRow = 105312

    ActiveWindow.ScrollRow = 105630

    ActiveWindow.ScrollRow = 106584

    ActiveWindow.ScrollRow = 108175

    ActiveWindow.ScrollRow = 109448

    ActiveWindow.ScrollRow = 110402

    ActiveWindow.ScrollRow = 112311

    ActiveWindow.ScrollRow = 113266

    ActiveWindow.ScrollRow = 115175

    ActiveWindow.ScrollRow = 117084

    ActiveWindow.ScrollRow = 120583

    ActiveWindow.ScrollRow = 121856

    ActiveWindow.ScrollRow = 124083

    ActiveWindow.ScrollRow = 125674

    ActiveWindow.ScrollRow = 127583

    ActiveWindow.ScrollRow = 129174

    ActiveWindow.ScrollRow = 130446

    ActiveWindow.ScrollRow = 131719

    ActiveWindow.ScrollRow = 132992

    ActiveWindow.ScrollRow = 136491

    ActiveWindow.ScrollRow = 138718

    ActiveWindow.ScrollRow = 139673

    ActiveWindow.ScrollRow = 141582

    ActiveWindow.ScrollRow = 143491

    ActiveWindow.ScrollRow = 144764

    ActiveWindow.ScrollRow = 146036

    ActiveWindow.ScrollRow = 147309

    ActiveWindow.ScrollRow = 148263

    ActiveWindow.ScrollRow = 149854

    ActiveWindow.ScrollRow = 151445

    ActiveWindow.ScrollRow = 153036

    ActiveWindow.ScrollRow = 153990

    ActiveWindow.ScrollRow = 154626

    ActiveWindow.ScrollRow = 155899

    ActiveWindow.ScrollRow = 156854

    ActiveWindow.ScrollRow = 158126

    ActiveWindow.ScrollRow = 159081

    ActiveWindow.ScrollRow = 160353

    ActiveWindow.ScrollRow = 160990

    ActiveWindow.ScrollRow = 161944

    ActiveWindow.ScrollRow = 162899

    ActiveWindow.ScrollRow = 164171

    ActiveWindow.ScrollRow = 165126

    ActiveWindow.ScrollRow = 165444

    ActiveWindow.ScrollRow = 166398

    ActiveWindow.ScrollRow = 167353

    ActiveWindow.ScrollRow = 167989

    ActiveWindow.ScrollRow = 169262

    ActiveWindow.ScrollRow = 170216

    ActiveWindow.ScrollRow = 171171

    ActiveWindow.ScrollRow = 172125

    ActiveWindow.ScrollRow = 173716

    ActiveWindow.ScrollRow = 174352

    ActiveWindow.ScrollRow = 175943

    ActiveWindow.ScrollRow = 176898

    ActiveWindow.ScrollRow = 178170

    ActiveWindow.ScrollRow = 179443

    ActiveWindow.ScrollRow = 180079

    ActiveWindow.ScrollRow = 180716

    ActiveWindow.ScrollRow = 181670

    ActiveWindow.ScrollRow = 182306

    ActiveWindow.ScrollRow = 182943

    ActiveWindow.ScrollRow = 183897

    ActiveWindow.ScrollRow = 184533

    ActiveWindow.ScrollRow = 184852

    ActiveWindow.ScrollRow = 185488

    ActiveWindow.ScrollRow = 186442

    ActiveWindow.ScrollRow = 187079

    ActiveWindow.ScrollRow = 188351

    ActiveWindow.ScrollRow = 188988

    ActiveWindow.ScrollRow = 189942

    ActiveWindow.ScrollRow = 190897

    ActiveWindow.ScrollRow = 191533

    ActiveWindow.ScrollRow = 192169

    ActiveWindow.ScrollRow = 193442

    ActiveWindow.ScrollRow = 194078

    ActiveWindow.ScrollRow = 194396

    ActiveWindow.ScrollRow = 195351

    ActiveWindow.ScrollRow = 195669

    ActiveWindow.ScrollRow = 195987

    ActiveWindow.ScrollRow = 196942

    ActiveWindow.ScrollRow = 197578

    ActiveWindow.ScrollRow = 198214

    ActiveWindow.ScrollRow = 198851

    ActiveWindow.ScrollRow = 199805

    ActiveWindow.ScrollRow = 200441

    ActiveWindow.ScrollRow = 200760

    ActiveWindow.ScrollRow = 201078

    ActiveWindow.ScrollRow = 202032

    ActiveWindow.ScrollRow = 202350

    ActiveWindow.ScrollRow = 202669

    ActiveWindow.ScrollRow = 202987

    ActiveWindow.ScrollRow = 203305

    ActiveWindow.ScrollRow = 203623

    ActiveWindow.ScrollRow = 204577

    ActiveWindow.ScrollRow = 205214

    ActiveWindow.ScrollRow = 205850

    ActiveWindow.ScrollRow = 207123

    ActiveWindow.ScrollRow = 207441

    ActiveWindow.ScrollRow = 207759

    ActiveWindow.ScrollRow = 208714

    ActiveWindow.ScrollRow = 209032

    ActiveWindow.ScrollRow = 209350

    ActiveWindow.ScrollRow = 210304

    ActiveWindow.ScrollRow = 210941

    ActiveWindow.ScrollRow = 211577

    ActiveWindow.ScrollRow = 211895

    ActiveWindow.ScrollRow = 212531

    ActiveWindow.ScrollRow = 213486

    ActiveWindow.ScrollRow = 213804

    ActiveWindow.ScrollRow = 214440

    ActiveWindow.ScrollRow = 215395

    ActiveWindow.ScrollRow = 216031

    ActiveWindow.ScrollRow = 216668

    ActiveWindow.ScrollRow = 217940

    ActiveWindow.ScrollRow = 218258

    ActiveWindow.ScrollRow = 218576

    ActiveWindow.ScrollRow = 219213

    ActiveWindow.ScrollRow = 219849

    ActiveWindow.ScrollRow = 220167

    ActiveWindow.ScrollRow = 220485

    ActiveWindow.ScrollRow = 221122

    ActiveWindow.ScrollRow = 221440

    ActiveWindow.ScrollRow = 222713

    ActiveWindow.ScrollRow = 223031

    ActiveWindow.ScrollRow = 223349

    ActiveWindow.ScrollRow = 224303

    ActiveWindow.ScrollRow = 224621

    ActiveWindow.ScrollRow = 225576

    ActiveWindow.ScrollRow = 225894

    ActiveWindow.ScrollRow = 226530

    ActiveWindow.ScrollRow = 226849

    ActiveWindow.ScrollRow = 227485

    ActiveWindow.ScrollRow = 228121

    ActiveWindow.ScrollRow = 229076

    ActiveWindow.ScrollRow = 229394

    ActiveWindow.ScrollRow = 229712

    ActiveWindow.ScrollRow = 230030

    ActiveWindow.ScrollRow = 230348

    ActiveWindow.ScrollRow = 230985

    ActiveWindow.ScrollRow = 231303

    ActiveWindow.ScrollRow = 231621

    Range("AW3:AW231658").Select

    ActiveSheet.Paste

    Range("AW3:AW231658,AW2").Select

    Range("AW2").Activate

    Application.CutCopyMode = False

    Selection.NumberFormat = "[$-409]m/d/yy h:mm AM/PM;@"

    Range("AY2").Select

    ActiveCell.FormulaR1C1 = "=(((RC[-1]-(5*3600))/86400)+25569)"

    Range("AY2").Select

    Selection.Copy

    Range("AY3").Select

    ActiveWindow.ScrollRow = 319

    ActiveWindow.ScrollRow = 2864

    ActiveWindow.ScrollRow = 6682

    ActiveWindow.ScrollRow = 8273

    ActiveWindow.ScrollRow = 9228

    ActiveWindow.ScrollRow = 10500

    ActiveWindow.ScrollRow = 13682

    ActiveWindow.ScrollRow = 14954

    ActiveWindow.ScrollRow = 16545

    ActiveWindow.ScrollRow = 17818

    ActiveWindow.ScrollRow = 19091

    ActiveWindow.ScrollRow = 20681

    ActiveWindow.ScrollRow = 22272

    ActiveWindow.ScrollRow = 24817

    ActiveWindow.ScrollRow = 25772

    ActiveWindow.ScrollRow = 27681

    ActiveWindow.ScrollRow = 29590

    ActiveWindow.ScrollRow = 31499

    ActiveWindow.ScrollRow = 33726

    ActiveWindow.ScrollRow = 35635

    ActiveWindow.ScrollRow = 37862

    ActiveWindow.ScrollRow = 40089

    ActiveWindow.ScrollRow = 43271

    ActiveWindow.ScrollRow = 45816

    ActiveWindow.ScrollRow = 48679

    ActiveWindow.ScrollRow = 54724

    ActiveWindow.ScrollRow = 60769

    ActiveWindow.ScrollRow = 63315

    ActiveWindow.ScrollRow = 67769

    ActiveWindow.ScrollRow = 69996

    ActiveWindow.ScrollRow = 73178

    ActiveWindow.ScrollRow = 79859

    ActiveWindow.ScrollRow = 85904

    ActiveWindow.ScrollRow = 90040

    ActiveWindow.ScrollRow = 94176

    ActiveWindow.ScrollRow = 97994

    ActiveWindow.ScrollRow = 100539

    ActiveWindow.ScrollRow = 104675

    ActiveWindow.ScrollRow = 106584

    ActiveWindow.ScrollRow = 108811

    ActiveWindow.ScrollRow = 111039

    ActiveWindow.ScrollRow = 112948

    ActiveWindow.ScrollRow = 115811

    ActiveWindow.ScrollRow = 117084

    ActiveWindow.ScrollRow = 119311

    ActiveWindow.ScrollRow = 121538

    ActiveWindow.ScrollRow = 124083

    ActiveWindow.ScrollRow = 126628

    ActiveWindow.ScrollRow = 129492

    ActiveWindow.ScrollRow = 130764

    ActiveWindow.ScrollRow = 132673

    ActiveWindow.ScrollRow = 134264

    ActiveWindow.ScrollRow = 136173

    ActiveWindow.ScrollRow = 139673

    ActiveWindow.ScrollRow = 141900

    ActiveWindow.ScrollRow = 144764

    ActiveWindow.ScrollRow = 146354

    ActiveWindow.ScrollRow = 148581

    ActiveWindow.ScrollRow = 150490

    ActiveWindow.ScrollRow = 151763

    ActiveWindow.ScrollRow = 153672

    ActiveWindow.ScrollRow = 155581

    ActiveWindow.ScrollRow = 157172

    ActiveWindow.ScrollRow = 158444

    ActiveWindow.ScrollRow = 160353

    ActiveWindow.ScrollRow = 161626

    ActiveWindow.ScrollRow = 162899

    ActiveWindow.ScrollRow = 164489

    ActiveWindow.ScrollRow = 165444

    ActiveWindow.ScrollRow = 167035

    ActiveWindow.ScrollRow = 168625

    ActiveWindow.ScrollRow = 169580

    ActiveWindow.ScrollRow = 171171

    ActiveWindow.ScrollRow = 172443

    ActiveWindow.ScrollRow = 173398

    ActiveWindow.ScrollRow = 174989

    ActiveWindow.ScrollRow = 176579

    ActiveWindow.ScrollRow = 178170

    ActiveWindow.ScrollRow = 180079

    ActiveWindow.ScrollRow = 181988

    ActiveWindow.ScrollRow = 182943

    ActiveWindow.ScrollRow = 184852

    ActiveWindow.ScrollRow = 186442

    ActiveWindow.ScrollRow = 188033

    ActiveWindow.ScrollRow = 189306

    ActiveWindow.ScrollRow = 190260

    ActiveWindow.ScrollRow = 190578

    ActiveWindow.ScrollRow = 191215

    ActiveWindow.ScrollRow = 192487

    ActiveWindow.ScrollRow = 193442

    ActiveWindow.ScrollRow = 194715

    ActiveWindow.ScrollRow = 195987

    ActiveWindow.ScrollRow = 197578

    ActiveWindow.ScrollRow = 198851

    ActiveWindow.ScrollRow = 199805

    ActiveWindow.ScrollRow = 200760

    ActiveWindow.ScrollRow = 201714

    ActiveWindow.ScrollRow = 202350

    ActiveWindow.ScrollRow = 202669

    ActiveWindow.ScrollRow = 203623

    ActiveWindow.ScrollRow = 204577

    ActiveWindow.ScrollRow = 205532

    ActiveWindow.ScrollRow = 206486

    ActiveWindow.ScrollRow = 207759

    ActiveWindow.ScrollRow = 208395

    ActiveWindow.ScrollRow = 209350

    ActiveWindow.ScrollRow = 210622

    ActiveWindow.ScrollRow = 211577

    ActiveWindow.ScrollRow = 212531

    ActiveWindow.ScrollRow = 213486

    ActiveWindow.ScrollRow = 214440

    ActiveWindow.ScrollRow = 215713

    ActiveWindow.ScrollRow = 217304

    ActiveWindow.ScrollRow = 218258

    ActiveWindow.ScrollRow = 218895

    ActiveWindow.ScrollRow = 218576

    ActiveWindow.ScrollRow = 219213

    ActiveWindow.ScrollRow = 219849

    ActiveWindow.ScrollRow = 221122

    ActiveWindow.ScrollRow = 222076

    ActiveWindow.ScrollRow = 223349

    ActiveWindow.ScrollRow = 223985

    ActiveWindow.ScrollRow = 224621

    ActiveWindow.ScrollRow = 225894

    ActiveWindow.ScrollRow = 226849

    ActiveWindow.ScrollRow = 227803

    ActiveWindow.ScrollRow = 228121

    ActiveWindow.ScrollRow = 229076

    ActiveWindow.ScrollRow = 230348

    ActiveWindow.ScrollRow = 230667

    ActiveWindow.ScrollRow = 231303

    ActiveWindow.ScrollRow = 231621

    Range("AY3:AY231658").Select

    ActiveSheet.Paste

    Range("AY3:AY231658,AY2").Select

    Range("AY2").Activate

    Application.CutCopyMode = False

    Selection.NumberFormat = "[$-409]m/d/yy h:mm AM/PM;@"

    Range("AZ2").Select

    ActiveCell.FormulaR1C1 = _

        "=IF(RC[-4]=0,0&"" secs"",IF(RC[-2]-RC[-4]>=3600,ROUND(((RC[-2]-RC[-4])/3600),2)&"" hrs"",IF(RC[-2]-RC[-4]>=60,ROUND(((RC[-2]-RC[-4])/60),2)&"" mins"",RC[-2]-RC[-4]&"" secs"")))"

    Range("AZ2").Select

    Selection.Copy

    Range("AZ3").Select

    ActiveWindow.ScrollRow = 319

    ActiveWindow.ScrollRow = 637

    ActiveWindow.ScrollRow = 3501

    ActiveWindow.ScrollRow = 5092

    ActiveWindow.ScrollRow = 6364

    ActiveWindow.ScrollRow = 7955

    ActiveWindow.ScrollRow = 8591

    ActiveWindow.ScrollRow = 9546

    ActiveWindow.ScrollRow = 11137

    ActiveWindow.ScrollRow = 13046

    ActiveWindow.ScrollRow = 14318

    ActiveWindow.ScrollRow = 15591

    ActiveWindow.ScrollRow = 16545

    ActiveWindow.ScrollRow = 17818

    ActiveWindow.ScrollRow = 19409

    ActiveWindow.ScrollRow = 20681

    ActiveWindow.ScrollRow = 22272

    ActiveWindow.ScrollRow = 23863

    ActiveWindow.ScrollRow = 24817

    ActiveWindow.ScrollRow = 26090

    ActiveWindow.ScrollRow = 27363

    ActiveWindow.ScrollRow = 29272

    ActiveWindow.ScrollRow = 29590

    ActiveWindow.ScrollRow = 30862

    ActiveWindow.ScrollRow = 31817

    ActiveWindow.ScrollRow = 33726

    ActiveWindow.ScrollRow = 36907

    ActiveWindow.ScrollRow = 39135

    ActiveWindow.ScrollRow = 42634

    ActiveWindow.ScrollRow = 45498

    ActiveWindow.ScrollRow = 50588

    ActiveWindow.ScrollRow = 55997

    ActiveWindow.ScrollRow = 64269

    ActiveWindow.ScrollRow = 69996

    ActiveWindow.ScrollRow = 72859

    ActiveWindow.ScrollRow = 75405

    ActiveWindow.ScrollRow = 78586

    ActiveWindow.ScrollRow = 79859

    ActiveWindow.ScrollRow = 81132

    ActiveWindow.ScrollRow = 82086

    ActiveWindow.ScrollRow = 83677

    ActiveWindow.ScrollRow = 85586

    ActiveWindow.ScrollRow = 87495

    ActiveWindow.ScrollRow = 89404

    ActiveWindow.ScrollRow = 91631

    ActiveWindow.ScrollRow = 94176

    ActiveWindow.ScrollRow = 95767

    ActiveWindow.ScrollRow = 99267

    ActiveWindow.ScrollRow = 102766

    ActiveWindow.ScrollRow = 107539

    ActiveWindow.ScrollRow = 110084

    ActiveWindow.ScrollRow = 113584

    ActiveWindow.ScrollRow = 116447

    ActiveWindow.ScrollRow = 118674

    ActiveWindow.ScrollRow = 119311

    ActiveWindow.ScrollRow = 122492

    ActiveWindow.ScrollRow = 124083

    ActiveWindow.ScrollRow = 125356

    ActiveWindow.ScrollRow = 126628

    ActiveWindow.ScrollRow = 127583

    ActiveWindow.ScrollRow = 129174

    ActiveWindow.ScrollRow = 130764

    ActiveWindow.ScrollRow = 131719

    ActiveWindow.ScrollRow = 133310

    ActiveWindow.ScrollRow = 134264

    ActiveWindow.ScrollRow = 135855

    ActiveWindow.ScrollRow = 137128

    ActiveWindow.ScrollRow = 137764

    ActiveWindow.ScrollRow = 139037

    ActiveWindow.ScrollRow = 139673

    ActiveWindow.ScrollRow = 139991

    ActiveWindow.ScrollRow = 140627

    ActiveWindow.ScrollRow = 141582

    ActiveWindow.ScrollRow = 142218

    ActiveWindow.ScrollRow = 143491

    ActiveWindow.ScrollRow = 144127

    ActiveWindow.ScrollRow = 144764

    ActiveWindow.ScrollRow = 145082

    ActiveWindow.ScrollRow = 146354

    ActiveWindow.ScrollRow = 146991

    ActiveWindow.ScrollRow = 148263

    ActiveWindow.ScrollRow = 149536

    ActiveWindow.ScrollRow = 150809

    ActiveWindow.ScrollRow = 151445

    ActiveWindow.ScrollRow = 152399

    ActiveWindow.ScrollRow = 153672

    ActiveWindow.ScrollRow = 155581

    ActiveWindow.ScrollRow = 156854

    ActiveWindow.ScrollRow = 157808

    ActiveWindow.ScrollRow = 159717

    ActiveWindow.ScrollRow = 161308

    ActiveWindow.ScrollRow = 161626

    ActiveWindow.ScrollRow = 163535

    ActiveWindow.ScrollRow = 164489

    ActiveWindow.ScrollRow = 166080

    ActiveWindow.ScrollRow = 167671

    ActiveWindow.ScrollRow = 168307

    ActiveWindow.ScrollRow = 170534

    ActiveWindow.ScrollRow = 172125

    ActiveWindow.ScrollRow = 173716

    ActiveWindow.ScrollRow = 174989

    ActiveWindow.ScrollRow = 176261

    ActiveWindow.ScrollRow = 177216

    ActiveWindow.ScrollRow = 178170

    ActiveWindow.ScrollRow = 179443

    ActiveWindow.ScrollRow = 181034

    ActiveWindow.ScrollRow = 182624

    ActiveWindow.ScrollRow = 183261

    ActiveWindow.ScrollRow = 184852

    ActiveWindow.ScrollRow = 185806

    ActiveWindow.ScrollRow = 187715

    ActiveWindow.ScrollRow = 188351

    ActiveWindow.ScrollRow = 189942

    ActiveWindow.ScrollRow = 190260

    ActiveWindow.ScrollRow = 190897

    ActiveWindow.ScrollRow = 192487

    ActiveWindow.ScrollRow = 193124

    ActiveWindow.ScrollRow = 194078

    ActiveWindow.ScrollRow = 195033

    ActiveWindow.ScrollRow = 195669

    ActiveWindow.ScrollRow = 196942

    ActiveWindow.ScrollRow = 197896

    ActiveWindow.ScrollRow = 198851

    ActiveWindow.ScrollRow = 199169

    ActiveWindow.ScrollRow = 199805

    ActiveWindow.ScrollRow = 201078

    ActiveWindow.ScrollRow = 202032

    ActiveWindow.ScrollRow = 203941

    ActiveWindow.ScrollRow = 204577

    ActiveWindow.ScrollRow = 205532

    ActiveWindow.ScrollRow = 206486

    ActiveWindow.ScrollRow = 206805

    ActiveWindow.ScrollRow = 207759

    ActiveWindow.ScrollRow = 208077

    ActiveWindow.ScrollRow = 208395

    ActiveWindow.ScrollRow = 209032

    ActiveWindow.ScrollRow = 209668

    ActiveWindow.ScrollRow = 209986

    ActiveWindow.ScrollRow = 210622

    ActiveWindow.ScrollRow = 210941

    ActiveWindow.ScrollRow = 211259

    ActiveWindow.ScrollRow = 211895

    ActiveWindow.ScrollRow = 212531

    ActiveWindow.ScrollRow = 213168

    ActiveWindow.ScrollRow = 214122

    ActiveWindow.ScrollRow = 214759

    ActiveWindow.ScrollRow = 215077

    ActiveWindow.ScrollRow = 215395

    ActiveWindow.ScrollRow = 215713

    ActiveWindow.ScrollRow = 216349

    ActiveWindow.ScrollRow = 216668

    ActiveWindow.ScrollRow = 216986

    ActiveWindow.ScrollRow = 217304

    ActiveWindow.ScrollRow = 217622

    ActiveWindow.ScrollRow = 217940

    ActiveWindow.ScrollRow = 218576

    ActiveWindow.ScrollRow = 218895

    ActiveWindow.ScrollRow = 219213

    ActiveWindow.ScrollRow = 219531

    ActiveWindow.ScrollRow = 219849

    ActiveWindow.ScrollRow = 220167

    ActiveWindow.ScrollRow = 220804

    ActiveWindow.ScrollRow = 221122

    ActiveWindow.ScrollRow = 221440

    ActiveWindow.ScrollRow = 221758

    ActiveWindow.ScrollRow = 222076

    ActiveWindow.ScrollRow = 222394

    ActiveWindow.ScrollRow = 223031

    ActiveWindow.ScrollRow = 223349

    ActiveWindow.ScrollRow = 223667

    ActiveWindow.ScrollRow = 223985

    ActiveWindow.ScrollRow = 224303

    ActiveWindow.ScrollRow = 224621

    ActiveWindow.ScrollRow = 225258

    ActiveWindow.ScrollRow = 225576

    ActiveWindow.ScrollRow = 225894

    ActiveWindow.ScrollRow = 226212

    ActiveWindow.ScrollRow = 226530

    ActiveWindow.ScrollRow = 226849

    ActiveWindow.ScrollRow = 227167

    ActiveWindow.ScrollRow = 227803

    ActiveWindow.ScrollRow = 228121

    ActiveWindow.ScrollRow = 228439

    ActiveWindow.ScrollRow = 228758

    ActiveWindow.ScrollRow = 229394

    ActiveWindow.ScrollRow = 230348

    ActiveWindow.ScrollRow = 230985

    ActiveWindow.ScrollRow = 231621

    ActiveWindow.SmallScroll Down:=10

    Range("AZ3:AZ231658").Select

    ActiveSheet.Paste

    ActiveWindow.ScrollColumn = 51

    ActiveWindow.ScrollColumn = 50

    ActiveWindow.ScrollColumn = 49

    ActiveWindow.ScrollColumn = 48

    ActiveWindow.ScrollColumn = 47

    ActiveWindow.ScrollColumn = 46

    ActiveWindow.ScrollColumn = 45

    ActiveWindow.ScrollColumn = 44

    ActiveWindow.SmallScroll Down:=-70

End Sub

1101
Views
0
Helpful
0
Comments