Need help turning my script into a loop

[Dojorgen]

Hey guys.....

Is there a way to turn this into a loop?

Worksheets("Data Entry").Select
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
Selection.Copy
Range("R2").Select
ActiveSheet.Pictures.Paste.Select

Worksheets("Data Entry").Select
ActiveSheet.Shapes.Range(Array("Picture 4")).Select
Selection.Copy
Range("R3").Select
ActiveSheet.Pictures.Paste.Select

Worksheets("Data Entry").Select
ActiveSheet.Shapes.Range(Array("Picture 6")).Select
Selection.Copy
Range("R4").Select
ActiveSheet.Pictures.Paste.Select

Worksheets("Data Entry").Select
ActiveSheet.Shapes.Range(Array("Picture 8")).Select
Selection.Copy
Range("R5").Select
ActiveSheet.Pictures.Paste.Select

Worksheets("Data Entry").Select
ActiveSheet.Shapes.Range(Array("Picture 10")).Select
Selection.Copy
Range("R6").Select
ActiveSheet.Pictures.Paste.Select

Worksheets("Data Entry").Select
ActiveSheet.Shapes.Range(Array("Picture 12")).Select
Selection.Copy
Range("R7").Select
ActiveSheet.Pictures.Paste.Select

Worksheets("Data Entry").Select
ActiveSheet.Shapes.Range(Array("Picture 14")).Select
Selection.Copy
Range("R8").Select
ActiveSheet.Pictures.Paste.Select

Worksheets("Data Entry").Select
ActiveSheet.Shapes.Range(Array("Picture 16")).Select
Selection.Copy
Range("R9").Select
ActiveSheet.Pictures.Paste.Select

 

[Michael M]

try UNTESTED

Sub MM1()
Dim n As Integer, x As Long
n = 2
x = 2
For x = 2 To 9
    With Worksheets("Data Entry")
        .Shapes.Range(Array("Picture" & n)).Copy .Range("R" & x)
    End With
n = n + 2
Next x
End Sub

 

[Dojorgen]

I like how you have it set up but it is not pasting the images. any ideas??? I tried to add .Pictures.Paste to the end of .Range("R" & x) but it still did not work??

 

[Michael M]

Still untested...don't have Excel

Sub MM1()
Dim n As Integer, x As Long, pic As Picture
n = 7
x = 2
For x = 2 To 9
Set pic = Worksheets("Data Entry").Pictures("Picture " & n)
    pic.Copy
With Worksheets("Data Entry")
    .Range("R" & x).Select
    .Paste
End With
n = n + 2
Next x
End Sub

 

[Dojorgen]

very nice thank you lots of help