run macro in selected column

[CAV124]

I have a macro that copies and paste data from worksheet into specific cells in another worksheet. I run this several times a week and I currently have a separate macro for each column I want the data copies too.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
How can I make one Macro that will run and populated in whatever column I have selected? <o></o>
<o> </o>
Example: Day 1 I want to copy data cells A1..A5 on Tab 1 and populate cells C1..C5 in Tab 2 but next day want to do same thing but populate in cells D1..D5 and so on. <o></o>
<o> </o>
<o> </o>

 

[Matt Rogers]

Hi.

Sub CopyMacro1()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
ws1.Range("A1:A5").Copy ws2.Cells(1, ws2.Cells _
(1, Columns.Count).End(xlToLeft).Column + 1)
End Sub