copying data to next available empty columns

[themole]

hi,

sorry if this has been covered before.

i have a table of names (75 in total) and values, every week the values will change on the table. What i am after is a code so that once i click on the control button it will automatically copy and paste the list of names and corresponding values into next available empty columns in spreadsheet.

original list of names range from A4:A78 and values B4:B78. ideally would like to start copying data into columns D:E, leave column F blank then once control button clicked again to start copying into columns G:H, leave column I blank, and so on

hope this sounds straight forward,

cheers

 

[themole]

hi,

after a little minor tweek to the code please. the cells in columns A:E contain formulas. The code is copying the formulas across into other columns, what i would like is if it would just copy the cell values,

thanks

 

[footoo]

Sub v()
Dim rng As Range
Set rng = Intersect([A:E], Range([A1], ActiveSheet.UsedRange))
Cells(1, rng.Columns.Count + 3).Resize(rng.Rows.Count, 5) = rng.Value
End Sub