숫자만 입력하면 설정한 분모값으로 분수가 될 수가 있나요??

Sub ChangeDenominator()
    Dim rng As Range
    Dim cell As Range
    Dim newDenominator As Long
    Dim currentDenominator As Long
 
    ' 사용자가 원하는 분모를 입력
    newDenominator = Application.InputBox("원하는 분모를 입력하세요:", Type:=1)
 
    ' 선택한 셀 범위
    Set rng = Selection
 
    ' 선택한 셀 범위를 텍스트 서식으로 설정
    rng.NumberFormat = "@"
 
    For Each cell In rng
        If cell.Value <> "" Then
            If IsNumeric(cell.Value) Then
                ' 셀 값이 숫자인 경우 분모를 변경
                cell.Value = cell.Value & "/" & newDenominator
            ElseIf InStr(cell.Value, "/") > 0 Then
                ' 셀 값이 분수인 경우 분자와 분모를 분리
                ' 새로운 분모로 분수 변경
                cell.Value = Split(cell.Value, "/")(0) & "/" & newDenominator
            End If
        End If
    Next cell
End Sub