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

 

[footoo]

Sub v()
Dim col&
col = Cells(1, Columns.Count).End(xlToLeft).Column - 1
Columns(col).Resize(, 2).Copy Columns(col + 3)
End Sub

 

[themole]

Hi, thanks for reply.

this works.... but not the way i intended..

i only want to copy data from columns A and B into next empty columns leaving a column blank between results in the process. this is copying data from last column of results into next available column

so basically info in A:B will be copied into D:E, then info from A:B will be copied into G:H...and so on

thanks

 

[footoo]

Sub v()
[A:B].Copy Cells(1, Columns.Count).End(xlToLeft)(1, 3).EntireColumn
End Sub

 

[themole]

sorry but this seems a step back from the 1st one. this is now just copying column A into column B then C then stopping after that with no copying. the 1st code was spot on apart from wanting to copy the original data in columns A:B into next available blank columns leaving 1 column width between each 2 columns of copied data

 

[footoo]

Is there any data in A1 and B1 ?

 

[themole]

no, sorry

the data in columns A:B doesnt start till A5 / B5

 

[footoo]

Sub v()
[A:B].Copy Cells(5, Columns.Count).End(xlToLeft)(1, 3).EntireColumn
End Sub

 

[themole]

fantastic!

one more quick question...if i was to have maybe 5 columns of data to copy/paste for example(A to E) and still require same process, what would i need to change on the code?

 

[footoo]

Sub v()
[A:E].Copy Cells(5, Columns.Count).End(xlToLeft)(1, 3).EntireColumn
End Sub