Problema con celdas en VBA

Hola,
en VBA Tengo un problema tengo esto HN 22.5(80)40/03 debo eliminar los (),"." y / eso lo tengo hecho el problemas es que tengo HN 30.0(80)40/F el cual debo agregar un 0 después del HN (que tiene dos espacios) y mantener el /F y tengo también HN 20.0(90)20/12-03 HIDRO que debo mantener desde el -03 hidro y el ultimo caso es HF 5.0(80)40/08 RK que debo mantener el "espacio RK"
Y tengo este también HB 30.0(90)20/12+02 debo mantener el +02
esto es lo que pude hacer.
Sub Macro3()
Sheets("Cálculo").Select
Columns("Q:Q").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Rows("2:3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="(", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=")", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Rows("1:1").Select
Range("A1").Select
Selection.AutoFilter
Range("A2").Select
Columns("A:A").Select
Selection.Replace What:="/", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveCell.FormulaR1C1 = "=MID(RC[-1],1,2)"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B1292")
Range("B2:B1292").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-2],4,100)"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C1292")
Range("C2:C1292").Select
Columns("B:C").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Ayuda!!!!!!
Muchas Gracias.