スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、アクティブシートの使用セル範囲の各値と接頭辞（'）を直後に挿入する新規シートにコピーします。

Sub Sample()

    Dim myBaseSht As Worksheet
    Dim myCell As Range

    Set myBaseSht = ActiveSheet
    
    Sheets.Add , myBaseSht
    
    For Each myCell In myBaseSht.UsedRange
        With myCell
            Range(.Address).Value = _
                .PrefixCharacter & .Value
        End With
    Next

End Sub