[table="width: 500"]
[tr]
[td]Sub FixTimeValues()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & LastRow) = Evaluate(Replace("IF(LEN(A1:A#),SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1:A#,""h "","":""),""m "","":""),""s"",""""),"""")", "#", LastRow))
End Sub[/td]
[/tr]
[/table]