Заменить генерирует «Ошибка времени выполнения 13: несоответствие типов», когда диапазон содержит более 1 ячейки

• Str — встроенная функция VBA. Пожалуйста, не используйте его как переменную.
• Sheets("Input").Range("C3:J3") возвращает 2D-массив. Replace функция с ним не работает.

Sub RemovePrefix()
    Dim aData, i As Long
    With Sheets("Input").Range("C3:J3")
        aData = .Value
        For i = 1 To UBound(aData, 2)
            aData(1, i) = Replace(aData(1, i), "Username / Nama TikTok : ", "")
        Next
        .Value = aData
    End With
End Sub

ИЛИ

Sub ReplaceAll()

    Sheets("Input").Range("C3:J3").Replace What: = "Username / Nama TikTok : ", Replacement: = "", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        
End Sub