Hi guys,
I am setting up a weekly report file and I need a macro that appends specific data from WB1 Sh1 to specific cells in WB2 Sh1. However, it must not override last week's data... so basically it changes column every time it's ran.

I am not an expert @ VBA and this is what I found online... It copies data to rows instead of columns and when ran again, it opies data to the next row. I need the reverse - copy to columns instead of rows. I tried altering the formula, but couldn't get it to work. Hope you can help me out. 

Sub Button_Copy_Click()
Dim wbksour As Workbook
Dim wbkdes As Workbook
Dim strFirstFile As String
Dim strSecondFile As String
Application.DisplayAlerts = False

strFirstFile = "Master.xlsx" 'Use the opened document as source
strSecondFile = "\\server\share\Test.xlsx" 'Path for destination document

Set wbksour = Workbooks(strFirstFile)
Set wbkdes = Workbooks.Open(strSecondFile)
nextrow = wbkdes.Sheets("Test").Cells(wbkdes.Sheets("Test").Rows.Count, 1).End(xlUp).Row + 1
wbkdes.Sheets("Test").Cells(nextrow, 1) = wbksour.Sheets("Master").Cells(13, 1) 'Copies A13 into Cell A2 of wbkdes.Sheets
wbkdes.Sheets("Test").Cells(nextrow, 2) = wbksour.Sheets("Master").Cells(2, 1) 'Copies A2 into Cell B2 of wbkdes.Sheets
wbkdes.Sheets("Test").Cells(nextrow, 3) = wbksour.Sheets("Master").Cells(4, 1) 'Copies A4 into Cell C2 of wbkdes.Sheets
wbkdes.Sheets("Test").Cells(nextrow, 4) = wbksour.Sheets("Master").Cells(7, 1) 'Copies A7 into Cell D2 of wbkdes.Sheets
wbkdes.Sheets("Test").Cells(nextrow, 5) = wbksour.Sheets("Master").Cells(9, 1) 'Copies A9 into Cell E2 of wbkdes.Sheets
wbkdes.Sheets("Test").Cells(nextrow, 6) = wbksour.Sheets("Master").Cells(10, 1) 'Copies A10 into Cell F2 of wbkdes.Sheets
wbkdes.Save 'Save the Destination worksheet
'wbkdes.Close 'Close the Destination worksheet

End Sub
Thanks,
Amar.