셀 연결연산시 글꼴 유지관련 질문

Sub CombineCells()
 
Application.ScreenUpdating = False
 
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 현재 활성화된 시트를 사용
 
    Dim selectedRange As Range
    Set selectedRange = Selection ' 현재 선택된 범위를 사용
 
    Dim cellA As Range
    Dim cellB As Range
    Dim cellC As Range
    Dim combinedValue As String
    Dim i As Integer
 
    ' 선택한 범위 내에서 작업 수행
    For i = 1 To <a href="http://selectedRange.Rows.Co" target="_blank" rel="noopener">selectedRange.Rows.Co</a>unt
        Set cellA = selectedRange.Cells(i, 1)
        Set cellB = selectedRange.Cells(i, 2)
        Set cellC = cellA.Offset(0, 2) ' A열로부터 두 칸 오른쪽인 C열로 오프셋
 
        ' 셀 값을 합칩니다.
        combinedValue = cellA.Value & " " & cellB.Value
 
        ' C 셀에 결합된 값을 저장합니다.
        cellC.Value = combinedValue
 
        ' A 셀의 폰트 속성을 C 셀의 앞부분에 적용합니다.
        With cellC.Characters(Start:=1, Length:=Len(cellA.Value)).Font
            .Name = cellA.Font.Name
            .Size = cellA.Font.Size
            .Color = <a href="http://cellA.Font.Co" target="_blank" rel="noopener">cellA.Font.Co</a>lor
            .Italic = True ' 이탤릭체로 설정
        End With
 
        ' B 셀의 폰트 속성을 C 셀의 뒷부분에 적용합니다.
        With cellC.Characters(Start:=Len(cellA.Value) + 2, Length:=Len(cellB.Value)).Font
            .Name = cellB.Font.Name
            .Size = cellB.Font.Size
            .Color = <a href="http://cellB.Font.Co" target="_blank" rel="noopener">cellB.Font.Co</a>lor
            .Italic = False ' 보통 글씨체로 설정
        End With
 
 
    Next i
 
Application.ScreenUpdating = True
 
End Sub