Excel VB Script For MIX Market

I’ve been working with a lot of microfinance data from the "trends" section of the MIX Market lately and unfortunately the .csv file is not organized in a way that can be easily exported into pivot tables or data visualization software such as Tableau.  So, I’ve written this little macro to compile the data into the necessary columns for working with and made it available to you.  It should work with most aggregate tables you download from the site. The only thing you need to be sure of is that the source worksheet is titled "Sheet1" and the worksheet for compiling the data is titled "Sheet2". It is a super simple macro, but now I’ve written it so you don’t have to.  

Sub Compile() ' Clear Clipboard and Clear Content From Sheet2 Application.CutCopyMode = False Sheets("Sheet2").Select Cells.Select Selection.ClearContents ' Column Headers Sheets("Sheet2").Select Range("A1").Select ActiveCell.FormulaR1C1 = "MFI ID" Range("B1").Select ActiveCell.FormulaR1C1 = "NAME" Range("C1").Select ActiveCell.FormulaR1C1 = "COUNTRY" Range("D1").Select ActiveCell.FormulaR1C1 = "YEAR" Range("E1").Select ActiveCell.FormulaR1C1 = "NUMBER" Range("A2").Select ' Paste MFI ID, NAME, COUNTRY Counter = 15 Do While Counter > 0 Sheets("Sheet1").Select Range("C2").Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Counter = Counter - 1 Loop ' paste date setup Counter2 = 15 Sheets("Sheet2").Select Range("D2").Select Sheets("Sheet1").Select Range("D1").Select ' paste date Do While Counter2 > 0 Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1753, 0).Select ActiveSheet.Paste Range(Selection, Selection.End(xlUp)).Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select ActiveCell.Offset(0, 1).Select Counter2 = Counter2 - 1 Loop 'paste number Sheets("Sheet1").Select Range("D2:D1755").Select Selection.Copy Sheets("Sheet2").Select Range("E2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("E2:E1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("F2:F1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("G2:G1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("H2:H1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("I2:I1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("J2:J1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("K2:K1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("L2:L1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("M2:M1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("N2:N1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("O2:O1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("P2:P1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("Q2:Q1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select Sheets("Sheet1").Select Range("R2:R1755").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1754, 0).Select End Sub