Copy & Paste X number of times but with certain conditions

[Dolphinv4]

I copied most of the code below from somewhere and modified it a little and it basically works how i wanted except for some conditions that I wanted to add

The original code with slight amendment and which works is below:

Option ExplicitSub INDO()


    Dim arr As Variant
    Dim wsO As Worksheet
    Dim this As Integer
    Dim i, h As Integer


    arr = ThisWorkbook.ActiveSheet.UsedRange
    Set wsO = ThisWorkbook.ActiveSheet


    For i = LBound(arr, 1) To UBound(arr, 1)
        If IsNumeric(arr(i, 4)) Then
            this = arr(i, 4)
            For h = 1 To this
                Range("J" & Rows.Count).End(xlUp).Offset(1, 0).Value = arr(i, 2)


            Next h
        End If
    Next i
    
End Sub

I wanted to add the following:
1) To paste the first value 1 row below what the macro currently does.
2) Then I wanted to add more conditions, ie, if the data in column 2 in the array starts with "SV-VAS" or "LIC-", then should only paste ONCE. (right now, it's not pasting anything at all for this condition (the other conditions are ok)).

Sub INDO()



       Dim arr As Variant
    Dim wsO As Worksheet
    Dim this As Integer
    Dim i, h As Integer


    arr = ThisWorkbook.ActiveSheet.UsedRange
    Set wsO = ThisWorkbook.ActiveSheet


    For i = LBound(arr, 1) To UBound(arr, 1)
        If IsNumeric(arr(i, 4)) Then
            this = arr(i, 4)
            For h = 1 To this
                If Left(arr(i, 2), 4) = "LIC-" Or Left(arr(i, 2), 6) = "SV-VAS" Then
[COLOR=#ff0000]                    Range("J" & Rows.Count).End(xlUp).Offset(1, 0).Value = arr(1, 2)[/COLOR]
                ElseIf Left(arr(i, 2), 6) = "GL-VAS" Then
                    'Do nothing
                Else
                    Range("J" & Rows.Count).End(xlUp).Offset(1, 0).Value = arr(i, 2)
                
                End If
            Next h
        End If
    Next i
    
End Sub

Thanks in advance!

 

[Dolphinv4]

Please help

I've been trying for the past few days to no avail