Sub main()
Dim p As String
'対象ﾌｫﾙﾀﾞを指定してください｡
'このﾌｫﾙﾀﾞに この実行用のﾌﾞｯｸは 入れないでください｡

p = "C:\test\"

'処理対象となる拡張子を指定して 呼び出します｡
Call jikkou(p, "csv")

End Sub


Sub jikkou(p As String, s As String)

Dim bk As Workbook
Application.DisplayAlerts = False

 
f = Dir(p & "*." & s, vbNormal)

Do While f <> ""
 Set w = Workbooks.Open(Filename:=p & f, UpdateLinks:=False, ReadOnly:=False)
  '処理対象は 1番目のｼｰﾄのみ｡
 
 With w.Sheets(1)
 
 
 .Columns("B:S").Select
 For gg = 2 To 9
 
 Selection.Replace What:=gg, Replacement:="", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False
 
 Next gg
 End With
 
 w.Save
 w.Close
 f = Dir
Loop

Application.DisplayAlerts = True

End Sub

うまく更新できない場合は､ｾﾙに入っている値に問題があると思われます｡