Next time, don't attach a picture please. People have to recreate your scenario themselves.
Attach a workbook instead.
I guess I am not the only one re attachment.![]()
Sub Try() Dim lr As Long, i As Long lr = Cells(Rows.Count, 3).End(xlUp).Row For i = 3 To lr Step 5 Range("K" & i).Resize(, 2) = Range("A6:B6").Value Next i End Sub
Bookmarks