【マクリン式】リライトマクロシートの使い方とコード【ダウンロードあり】

Dim Filepath As String
  With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "CSVファイル(*.csv)", "*.csv", 1
    .InitialFileName = ThisWorkbook.Path & "\"
    .Show
    
    If .SelectedItems.Count = 0 Then
      End
    End If
    
    Filepath = .SelectedItems(1)
  End With

  Dim WS As Worksheet
  Set WS = ReadCSV.ReadCSV(Filepath:=Filepath, TextColumns:="1")
  
  
  Columns(2).Insert   ' B 列に挿入
Columns(5).Insert   ' E 列に挿入
Columns(8).Insert   ' H 列に挿入
Columns(11).Insert   ' K 列に挿入

  Range("B1").Value = "CTs差"
Range("E1").Value = "Imp差"
Range("H1").Value = "CTR差"
Range("K1").Value = "順位差"

Columns("B").Select
Selection.NumberFormatLocal = "G/標準"
    
 Dim r As Long
    r = Range("A" & Rows.Count).End(xlUp).Row
    Range("B2:B" & r).Formula = "=(C2-D2)"
    
Columns("E").Select
Selection.NumberFormatLocal = "G/標準"
Range("E2:E" & r).Formula = "=(F2-G2)"

Columns("H").Select
Selection.NumberFormatLocal = "G/標準"
Range("H2:H" & r).Formula = "=(I2-J2)"

Columns("K").Select
Selection.NumberFormatLocal = "G/標準"
Range("K2:K" & r).Formula = "=(L2-M2)"

Range("A1").CurrentRegion.Select

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

 Range("A1").Select
    Selection.AutoFilter
    
 Cells.Select
    Cells.EntireColumn.AutoFit
    
     Range("A1:M1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
    
 Range("A1").Select