【ExcelVBA】図形を複製する

Public Sub DuplicateShapes()
    Dim sh As Worksheet
    Set sh = ActiveSheet    '作業シート(＝アクティブなシート)
   
    Dim 共通 As Shape
    Dim 専用 As Shape
    
    Set 共通 = ActiveSheet.Shapes(1)
    Set 専用 = ActiveSheet.Shapes(2)
    
    Dim lMax As Long    '最大行番号
    lMax = sh.Cells(9, "A").End(xlDown).Row 'セルA9からCtrl+↓で最終行番号をゲット
    
    Dim shp As Shape
    Dim ii As Long
    
    Const csTopMargin As Single = 2     'オブジェクト貼り付け時余白(Top側)
    Const csLeftMargin As Single = 5    'オブジェクト貼り付け時余白(Left側)
    
    Application.ScreenUpdating = False  '画面描画禁止
    For ii = 10 To lMax
    
        If sh.Cells(ii, "H").Value = "共通" Then
            Set shp = 共通.Duplicate
            shp.Top = sh.Cells(ii, "H").Top + csTopMargin   'セルのTopにオブジェクトのTopを合わせる。余白は適宜調整してください。
            shp.Left = sh.Cells(ii, "H").Left + csLeftMargin    'セルのLeftにオブジェクトのLeftを合わせる。余白は適宜調整してください。
        End If
        
        If sh.Cells(ii, "I").Value = "専用" Then
            Set shp = 専用.Duplicate
            shp.Top = sh.Cells(ii, "I").Top + csTopMargin
            shp.Left = sh.Cells(ii, "I").Left + csLeftMargin
        End If
            
    Next ii
    Application.ScreenUpdating = True '画面描画再開
    
    '後始末
    Set sh = Nothing
    Set shp = Nothing
    Set 共通 = Nothing
    Set 専用 = Nothing
    
End Sub