Rekap KK

Sub Rekapin_tabel()
'
' Rekapin_tabel Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    Rows("6:6").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A6:B6").Select
    Selection.AutoFill Destination:=Range("A6:BV6"), Type:=xlFillDefault
    Range("A6:BV6").Select
    ActiveWindow.SmallScroll Down:=212
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 232
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 359
    ActiveWindow.ScrollRow = 373
    ActiveWindow.ScrollRow = 419
    ActiveWindow.ScrollRow = 426
    ActiveWindow.ScrollRow = 469
    ActiveWindow.ScrollRow = 500
    ActiveWindow.ScrollRow = 521
    ActiveWindow.ScrollRow = 561
    ActiveWindow.ScrollRow = 592
    ActiveWindow.ScrollRow = 625
    ActiveWindow.ScrollRow = 698
    ActiveWindow.ScrollRow = 732
    ActiveWindow.ScrollRow = 766
    ActiveWindow.ScrollRow = 829
    ActiveWindow.ScrollRow = 835
    ActiveWindow.ScrollRow = 857
    ActiveWindow.ScrollRow = 870
    ActiveWindow.ScrollRow = 907
    ActiveWindow.ScrollRow = 919
    ActiveWindow.ScrollRow = 941
    ActiveWindow.ScrollRow = 946
    ActiveWindow.ScrollRow = 972
    ActiveWindow.ScrollRow = 974
    ActiveWindow.ScrollRow = 1005
    ActiveWindow.ScrollRow = 1009
    ActiveWindow.ScrollRow = 1021
    ActiveWindow.ScrollRow = 1040
    ActiveWindow.ScrollRow = 1059
    ActiveWindow.ScrollRow = 1056
    ActiveWindow.ScrollRow = 1055
    ActiveWindow.ScrollRow = 1036
    ActiveWindow.ScrollRow = 1025
    ActiveWindow.ScrollRow = 1024
    ActiveWindow.ScrollRow = 1016
    ActiveWindow.ScrollRow = 1010
    ActiveWindow.ScrollRow = 1008
    ActiveWindow.ScrollRow = 1002
    ActiveWindow.ScrollRow = 999
    ActiveWindow.ScrollRow = 996
    ActiveWindow.ScrollRow = 969
    ActiveWindow.ScrollRow = 971
    ActiveWindow.ScrollRow = 977
    ActiveWindow.ScrollRow = 979
    ActiveWindow.ScrollRow = 1000
    ActiveWindow.ScrollRow = 1030
    ActiveWindow.ScrollRow = 1044
    ActiveWindow.ScrollRow = 1109
    ActiveWindow.ScrollRow = 1168
    ActiveWindow.ScrollRow = 1190
    ActiveWindow.ScrollRow = 1248
    ActiveWindow.ScrollRow = 1260
    ActiveWindow.ScrollRow = 1263
    ActiveWindow.ScrollRow = 1270
    ActiveWindow.ScrollRow = 1307
    ActiveWindow.ScrollRow = 1314
    Range("A6:BV1345").Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$6:$BV$1345"), , xlYes).Name _
        = "Table4"
    Range("F10").Select
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=6, Criteria1:= _
        "<>"
    Range("C7:D37").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
    Range("E9").Select
End Sub