Insert Copy Paste on Criteria

[danjw_98]

I was hoping that I might ask for some assistance with this macro.

I am trying to copy a row based on the criteria in column g if it does not match what is in column j and copy/insert entire row in the row below it. Also would like to copy/insert x number of times based on the value in column l.

would appreciate any help with this and thanks..

 

[danjw_98]

This is what i have so far but not working. Please help if you can. thanks...

Sub TEST()

finalrow = Range("A65536").End(xlUp).Row
For x = 2 To finalrow
val1 = Range("g" & x).Value
val2 = Range("j" & x).Value
val3 = Range("l" & x).Value
If val1 <> val2 Then
Range("a" & x).Offset(1, 0).EntireRow.Resize(val3).Insert

End If

Next x

End Sub

 

[danjw_98]

I got the below to insert but can't figure out how to copy to the inserted rows. please help thanks...

Sub InsertOnMultiCriteria()

finalrow = Range("A65536").End(xlUp).Row
For x = 2 To finalrow

val1 = Range("g" & x).Value
val2 = Range("j" & x).Value
val3 = Range("l" & x).Value
If val1 <> val2 Then

Range("a" & x).Offset(1, 0).EntireRow.Resize(val3).Insert


End If
Next x