I am using ms excel 2013. Be aware, I have limited programming knowledge, but welcome any help that can move me forward on my project. I would like to copy a selected row of data, including an associated picture to another worksheet. In sheet1, I am using a checkbox to select a row containing data and an associated picture, and have created a "copy exercises" button on sheet 1 as well. The code is included below. Although the data copies correctly to sheet2 the picture does not. Apparently, I missing something and only the data is copied. Is their a solution to copy the selected row data including the picture to sheet 2?

Sub CopyExercises()

For Each chkbx In ActiveSheet.CheckBoxes
If chkbx.Value = 1 Then
For r = 1 To Rows.Count
If Cells(r, 1).Top = chkbx.Top Then
With Worksheets("ClientExerciseList")
LRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & LRow & ":I" & LRow) = _
Worksheets("ExerciseInventory").Range("A" & r & ":I" & r).Value
End With
Exit For
End If
Next r
End If
Next

End Sub