Sub Macro1()

'
' Macro1 Macro
'

'
ChDir "C:\Users\singhc\Desktop\Report"
Workbooks.OpenText Filename:="C:\Users\singhc\Desktop\Report\WNCS.msmt", _
Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7,
1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1),
Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20,
1)), _
TrailingMinusNumbers:=True
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Test.xlsm").Activate
Windows("WNCS.msmt").Activate
ActiveWindow.SmallScroll Down:=-24
Range("A21406").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$S$21466").AutoFilter Field:=5, Criteria1:= _
"Missing"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Test.xlsm").Activate
ActiveSheet.Paste
Range("J1").Select
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
("J1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-3
Windows("WNCS.msmt").Activate
Windows("Test.xlsm").Activate
Range("A1:S1").Select
Selection.Copy
Sheets("Sheet2").Select
 ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Range("A2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=IF(Sheet1!RC[9]>1,Sheet1!RC&Sheet1!RC[1])"
Range("A4").Select
Selection.End(xlDown).Select
Range("A3000").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.End(xlUp).Select
Range("A2").Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(15, 1)), TrailingMinusNumbers:=True
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1)),
TrailingMinusNumbers:=True
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1)),
TrailingMinusNumbers:=True
Range("C2").Select
Columns("B:B").ColumnWidth = 13.57
Columns("A:A").ColumnWidth = 9.86
Range("A3").Select
Columns("D:D").EntireColumn.AutoFit
Range("C3").Select
Workbooks.Open Filename:="C:\Users\singhc\Desktop\Report\3G detail.xlsx"
ActiveWindow.SmallScroll Down:=-6
Windows("Test.xlsm").Activate
Windows("3G detail.xlsx").Activate
Sheets("Sheet3").Select
Range("A1:P2").Select
Selection.Copy
Windows("Test.xlsm").Activate
Range("A1:H1").Select
ActiveSheet.Paste
Range("A3").Select
Windows("3G detail.xlsx").Activate
Range("A3").Select
Sheets("Sheet3").Select
Windows("Test.xlsm").Activate
Sheets("Sheet2").Select
ActiveWindow.SmallScroll Down:=-45
Range("B33").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("B2:B113").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 1048537
ActiveWindow.ScrollRow = 1045756
ActiveWindow.ScrollRow = 1041584
ActiveWindow.ScrollRow = 1033240
ActiveWindow.ScrollRow = 1023506
ActiveWindow.ScrollRow = 1016552
ActiveWindow.ScrollRow = 1004037
ActiveWindow.ScrollRow = 994302
ActiveWindow.ScrollRow = 988740
ActiveWindow.ScrollRow = 977615
ActiveWindow.ScrollRow = 966490
ActiveWindow.ScrollRow = 948412
ActiveWindow.ScrollRow = 934505
ActiveWindow.ScrollRow = 921990
ActiveWindow.ScrollRow = 905302
ActiveWindow.ScrollRow = 890005
ActiveWindow.ScrollRow = 873317
ActiveWindow.ScrollRow = 862192
ActiveWindow.ScrollRow = 848286
ActiveWindow.ScrollRow = 831599
ActiveWindow.ScrollRow = 813520
ActiveWindow.ScrollRow = 796833
ActiveWindow.ScrollRow = 780145
ActiveWindow.ScrollRow = 759286
ActiveWindow.ScrollRow = 739817
ActiveWindow.ScrollRow = 720348
ActiveWindow.ScrollRow = 700879
ActiveWindow.ScrollRow = 680020
ActiveWindow.ScrollRow = 656379
ActiveWindow.ScrollRow = 636910
ActiveWindow.ScrollRow = 613269
ActiveWindow.ScrollRow = 593801
ActiveWindow.ScrollRow = 572941
ActiveWindow.ScrollRow = 554863
ActiveWindow.ScrollRow = 536785
ActiveWindow.ScrollRow = 515925
ActiveWindow.ScrollRow = 497847
ActiveWindow.ScrollRow = 479769
ActiveWindow.ScrollRow = 464472
ActiveWindow.ScrollRow = 447784
ActiveWindow.ScrollRow = 432487
ActiveWindow.ScrollRow = 415800
ActiveWindow.ScrollRow = 397722
ActiveWindow.ScrollRow = 379643
ActiveWindow.ScrollRow = 364346
ActiveWindow.ScrollRow = 350440
ActiveWindow.ScrollRow = 335143
ActiveWindow.ScrollRow = 318456
ActiveWindow.ScrollRow = 304549
ActiveWindow.ScrollRow = 287862
ActiveWindow.ScrollRow = 273955
ActiveWindow.ScrollRow = 258658
ActiveWindow.ScrollRow = 241971
ActiveWindow.ScrollRow = 223893
ActiveWindow.ScrollRow = 207205
ActiveWindow.ScrollRow = 196080
ActiveWindow.ScrollRow = 180783
ActiveWindow.ScrollRow = 171049
ActiveWindow.ScrollRow = 159924
ActiveWindow.ScrollRow = 154361
ActiveWindow.ScrollRow = 144627
ActiveWindow.ScrollRow = 140455
ActiveWindow.ScrollRow = 133502
ActiveWindow.ScrollRow = 125158
ActiveWindow.ScrollRow = 118205
ActiveWindow.ScrollRow = 111252
ActiveWindow.ScrollRow = 105689
ActiveWindow.ScrollRow = 93173
ActiveWindow.ScrollRow = 90392
ActiveWindow.ScrollRow = 80658
ActiveWindow.ScrollRow = 75095
ActiveWindow.ScrollRow = 70923
ActiveWindow.ScrollRow = 63970
ActiveWindow.ScrollRow = 59798
ActiveWindow.ScrollRow = 52845
ActiveWindow.ScrollRow = 50064
ActiveWindow.ScrollRow = 48673
ActiveWindow.ScrollRow = 43111
ActiveWindow.ScrollRow = 40329
ActiveWindow.ScrollRow = 37548
ActiveWindow.ScrollRow = 36157
ActiveWindow.ScrollRow = 33376
ActiveWindow.ScrollRow = 31986
ActiveWindow.ScrollRow = 29204
ActiveWindow.ScrollRow = 27814
ActiveWindow.ScrollRow = 26423
ActiveWindow.ScrollRow = 23642
ActiveWindow.ScrollRow = 22251
ActiveWindow.ScrollRow = 20860
ActiveWindow.ScrollRow = 19470
ActiveWindow.ScrollRow = 18079
ActiveWindow.ScrollRow = 16689
ActiveWindow.ScrollRow = 15298
ActiveWindow.ScrollRow = 13907
ActiveWindow.ScrollRow = 12517
ActiveWindow.ScrollRow = 11126
ActiveWindow.ScrollRow = 9735
ActiveWindow.ScrollRow = 8345
ActiveWindow.ScrollRow = 4173
ActiveWindow.ScrollRow = 2782
ActiveWindow.ScrollRow = 1392
ActiveWindow.ScrollRow = 1
Range("B2:B1048576,D2").Select
Range("D2").Activate
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("F35").Select
Sheets("Sheet2").Select
Range("B1048543").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Application.CutCopyMode = False
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveSheet.Next.Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range("A3").Select
ActiveSheet.Previous.Select
Range("B1").Select
Selection.End(xlUp).Select
Range("B2").Select
Application.CutCopyMode = False
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveSheet.Next.Select
ActiveSheet.Paste
Range("I3").Select
ActiveSheet.Previous.Select
Selection.End(xlUp).Select
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Next.Select
ActiveSheet.Paste
Range("F3").Select
Windows("3G detail.xlsx").Activate
Selection.End(xlUp).Select
Windows("Test.xlsm").Activate
ActiveSheet.Previous.Select
Selection.End(xlUp).Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.End(xlUp).Select
Range("B2").Select
Selection.End(xlDown).Select
Range("A112").Select
Range(Selection, Selection.End(xlUp)).Select
Range("A2:A112").Select
Range("A112").Activate
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Next.Select
Range("F3").Select
ActiveSheet.Paste
Range("N3").Select
ActiveSheet.Previous.Select
Selection.End(xlUp).Select
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Next.Select
ActiveSheet.Paste
Range("B3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1]:R[110]C[-1],'[3G detail.xlsx]Sheet1'!R2C1:R2589C2,2,0)"
Range("B3").Select
Selection.Copy
Range("J3").Select
ActiveSheet.Paste
Range("J3").Select
Columns("J:J").EntireColumn.AutoFit
Range("C3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-2],'[3G detail.xlsx]Sheet1'!R2C1:R2589C3,3,0)"
Range("C3").Select
Selection.Copy
Range("K3").Select
ActiveSheet.Paste
Range("D3").Select
Application.CutCopyMode = False
Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-3]:R[110]C[-3],'[3G detail.xlsx]Sheet1'!R2C1:R2589C4,4,0)"
Range("A3").Select
Selection.End(xlDown).Select
Range("B1000:D1000").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=RC[-3]"
Range("D4").Select
Selection.End(xlDown).Select
Range("E113").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.End(xlUp).Select
Range("E3").Select
Selection.Copy
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Range("D3:E3").Select
Application.CutCopyMode = False
Selection.Copy
Range("L3").Select
ActiveSheet.Paste
Range("I4").Select
Selection.End(xlDown).Select
Range("J1000:M1000").Select
Range(Selection, Selection.End(xlUp)).Select
 Application.CutCopyMode = False
Selection.FillDown
Selection.End(xlUp).Select
Range("H3").Select
Selection.End(xlUp).Select
Range("H3").Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
Range("A2").Select
ActiveSheet.Next.Select
Selection.End(xlUp).Select
Range("C2").Select
ActiveSheet.Next.Select
End Sub