Substituir a maneira como você faz isso não funcionará, já que esses charcters não alfanuméricos podem ter funções especiais, como jokers etc. Você precisa substituir dentro do VBA, não dentro do Excel.
Então, tente isso:
For Char = 33 To 47
Sheets("Sheet1").Cells(FRow, 44).Value = Replace(Sheets("Sheet1").Cells(FRow, 44).Value, Chr(Char), "")
Next Char