VBA inserting rows then pasting predefined values

[ant8989]

Hi forum,

I have cleaned data and removed duplicates, now I need to add 16 pre-defined values (category_locale) for every category_id

The category_id's are not always increasing by 1 as some times they will skip sequence.

Meaning category_id 3565, should have 16 different category_locale's (as rows) and so should 3566 and so on.

The different category_locale's are language codes, so each category_id will have a language code. There are 16 language codes for each category_id

I have been trying to insert 15 rows, and then copying the set values however it just isn't working for me.

Is the best way to copy the first 3 cells in a row, then insert that 15 times and then paste in the 16 set values, and repeat ?

Any help or guidance you can provide would be greatly appreciated.

Thank you

 

[Fluff]

How about

Sub ant()
   Dim i As Long
   Dim ary As Variant
   ary = Array("ar", "de", "en", "es", "fr", "he", "it", "ja", "ko", "my", "pt", "ru", "th", "tr", "vi", "zh")
   ary = Application.Transpose(ary)
   Application.ScreenUpdating = False
   For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
      Rows(i + 1).Resize(15).Insert
      Range("A" & i).Resize(16, 3).FillDown
      Range("D" & i).Resize(16).Value = ary
   Next i
End Sub

 

[ant8989]

Thank you very much

This did exactly as what I needed.

 

[Fluff]

You're welcome & thanks for the feedback.