Sub Macro1()
Dim softwareVersion As String
Dim recentFlag As String
Dim historyFlag As String
Dim maxRowsNumber As Long
Dim targetColumn As Integer
Dim imageColumn As Integer
maxRowsNumber = 65535
recentFlag = "Y"
historyFlag = "N"
targetColumn = 8
imageColumn = 10
'Enter the newest version in this place
softwareVersion = "3.08.00"
For i = 7 To maxRowsNumber Step 1
If Cells(i, 6) = recentFlag Then
Rows(i).Copy
Rows(i + 1).Insert
Cells(i, 6) = historyFlag
Cells(i + 1, 6) = recentFlag
Cells(i + 1, 8) = softwareVersion
Cells(i + 1, 10) = softwareVersion
i = i + 1
ElseIf Cells(i, 6) = "" Then
i = maxRowsNumber
End If
Next i
End Sub
Sub Macro1()
Dim SoftwareVersion As String
SoftwareVersion = "3.08.00"
For i = 7 To 65535 Step 1
If Cells(i, 6) = "Y" Then
Rows(i).Copy
Rows(i + 1).Insert
Cells(i, 6) = "N"
Cells(i + 1, 6) = "Y"
Cells(i + 1, 8) = SoftwareVersion
Cells(i + 1, 10) = SoftwareVersion
i = i + 1
ElseIf Cells(i, 6) = "" Then
i = 65535
End If
Next i
End Sub