VBA Code for pasting Value every nth cell in 2 different rows

[Reefbreaker]

Hi there,

I'm a bit stuck on some VBA code and need some help!

I want to create some code for a macro button that will auto populate a value from cell A1 in cells Q19 and AJ19 and carry on doing this every 14 cells in both columns.
It would be great if the VBA loop ends at row 355 as this is where the data finishes.

Cheers,
R

 

[JEC]

Can you create a sample dataset with desired output?

 

[JEC]

Maybe...

Sub jec()
 Dim j As Long
 For j = 19 To 355 Step 14
    Union(Cells(j, 17), Cells(j, 36)) = [a1]
 Next
End Sub

 

[Reefbreaker]

Hi,

Does this help at all? I'm currently away from my work laptop so just made a quick mock up at home.

Cheers

 

[JEC]

Yes, you should try the code

 

[Reefbreaker]

Maybe stupid question, although quite new to VBA... What should I place instead of the j's?

 

[Reefbreaker]

The code doesn't seem to work unfortunately

 

[JEC]

This code works fine here though...
Run it as is, on the sheet you showed

 

[Reefbreaker]

Great, I'm back at work and it works perfectly - just like you said! Thanks so much for the help