Sub JPWRana() 'This adds rows If I have more than 4 pictures per Pole
Dim i As Long
Sheets("Checksheet").Activate
For i = 79 To 5 Step -1
Debug.Print i
Select Case Cells(i, "N").Value
Case 5 To 8
Cells(i + 1, "N").EntireRow.Insert
Cells(i + 1, "N").EntireRow.Value = Cells(i, "N").EntireRow.Value
Cells(i + 1, "A").ClearContents
Range(Cells(i + 1, "L"), Cells(i + 1, "M")).ClearContents
Range(Cells(i + 1, "C"), Cells(i + 1, "D")).Merge
Cells(i, "N").Offset(, 1).Resize(, 3).Copy Cells(i + 1, "O")
Case 9
Range(Cells(i + 1, "N"), Cells(i + 2, "N")).EntireRow.Insert
Cells(i + 1, "N").EntireRow.Value = Cells(i, "N").EntireRow.Value
Cells(i + 2, "N").EntireRow.Value = Cells(i, "N").EntireRow.Value
Range(Cells(i + 1, "A"), Cells(i + 2, "A")).ClearContents
Range(Cells(i + 1, "L"), Cells(i + 2, "M")).ClearContents
Range(Cells(i + 1, "C"), Cells(i + 1, "D")).Merge
Range(Cells(i + 2, "C"), Cells(i + 2, "D")).Merge
Cells(i, "N").Offset(, 1).Resize(, 3).Copy Cells(i + 1, "O")
Cells(i, "N").Offset(, 1).Resize(, 3).Copy Cells(i + 2, "O")
Case 10 To 12
Cells(i + 1, "N").EntireRow.Insert
Cells(i + 1, "N").EntireRow.Value = Cells(i, "N").EntireRow.Value
Cells(i + 1, "A").ClearContents
Range(Cells(i + 1, "L"), Cells(i + 1, "M")).ClearContents
Range(Cells(i + 1, "C"), Cells(i + 1, "D")).Merge
Cells(i, "N").Offset(, 1).Resize(, 3).Copy Cells(i + 1, "O")
Case 13
Range(Cells(i + 1, "N"), Cells(i + 3, "N")).EntireRow.Insert
Cells(i + 1, "N").EntireRow.Value = Cells(i, "N").EntireRow.Value
Cells(i + 2, "N").EntireRow.Value = Cells(i, "N").EntireRow.Value
Cells(i + 3, "N").EntireRow.Value = Cells(i, "N").EntireRow.Value
Range(Cells(i + 1, "A"), Cells(i + 3, "A")).ClearContents
Range(Cells(i + 1, "L"), Cells(i + 3, "M")).ClearContents
Range(Cells(i + 1, "C"), Cells(i + 1, "D")).Merge
Range(Cells(i + 2, "C"), Cells(i + 2, "D")).Merge
Range(Cells(i + 3, "C"), Cells(i + 3, "D")).Merge
Cells(i, "N").Offset(, 1).Resize(, 3).Copy Range(Cells(i + 1, "O"), Cells(i + 3, "O"))
Case Else
GoTo zz
End Select
zz:
Next i
End Sub
Bookmarks