vba - Paste values in first row and then every fourth row in excel -

i have workbook with range of values (k3:k89) want transform formulas , paste somewhere in workbook. problem want able paste these values in first row , every fourth row. code have far.

sub copy()  range("k3:k89").select activewindow.smallscroll down:=-60 selection.copy range("r3").select selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _     :=false, transpose:=false application.cutcopymode = false selection.copy range("l3").select sheets("sheet2").select end sub 

i can´t solve part of pasting values every fourth row. appreciated.

how this? assuming column of data in column k , want data pasted column r.

sub test() dim firstrow integer, lastrow integer, totallines integer, integer, k integer dim ws worksheet  set ws = activesheet  k = 0 firstrow = 3 lastrow = cells(3, 11).end(xldown).row ' how many total values have? totallines = lastrow - firstrow + 1  'now, loop through range of values, pasting column 18 (column r), skip 3 rows , repeat = 0 totallines     cells(3 + k, 18).value = cells(3 + i, 11).value     k = k + 4 ' add 4 k, skip 4 more lines next  end sub