Cacher is the code snippet organizer for pro developers

Sub copy()
'
' copy Macro
'
' Keyboard Shortcut: Ctrl+j
'
    ' 記録表の領域を選択
    Range("AX62:BN66").Select
    Range("A1:BN66").Select
    Range("AX62").Activate

    ' 画像としてコピー
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

    ' コピーした記録表の識別番号を確認しやすく
    Range("識別番号").Select
End Sub

Sub paste()
'
' paste Macro
'
' Keyboard Shortcut: Ctrl+k
'
    ' 画像としてコピーした記録表を貼り付け
    Range("A34").Select
    ActiveSheet.Pictures.paste.Select

    ' 画像を縮小
    With Selection
        .ShapeRange.LockAspectRatio = msoFalse
        .ShapeRange.ScaleHeight 0.48, msoTrue
        .ShapeRange.ScaleWidth 0.55, msoTrue
    End With

    Range("A33:J33").Select
End Sub