VBA to filter top ten values then paste into the related tables

Hi All,

Extremely new to the forum and VBA. I was wondering if anyone can help me out?

I am looking for a VBA Code that can run through a data dump and filter for the Top ten highest variations and paste the correct data into the related tables.

I have included the worksheet for an example. I also understand this could be done in Pivot Table however I am trying to increase my understanding of VBA.

If anyone could help me with my issue that would be most appreciated

Thanks in Advance !

One way

Sub test()
    Dim cn As Object, rs As Object
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0;HRD=Yes;IMEX=1;"
        .Open ThisWorkbook.FullName
    End With
    rs.Open "Select Top 10 `Project ID`, `Project Name`, `D# Manager`, `P#Manager`, " & _
            "`Forecast spend next month` From `Sheet2$` Order By `Forecast spend next month` Desc", cn
    Sheets("sheet1").Range("c8").CopyFromRecordset rs: rs.Close
    rs.Open "Select Top 10 `Project ID`, `Project Name`, `D# Manager`, `P#Manager`, `Current Spend in Year `, " & _
            "`Variance Spend in Year` From `Sheet2$` Order By `Variance Spend in Year` Desc", cn
    Sheets("sheet1").Range("c21").CopyFromRecordset rs
    Set rs = Nothing: Set cn = Nothing
End Sub

Thanks for the response, However is there another way to write the code for this(I am not familar with ADO) . I only ask because I plan to further edit the code to apply to other tables I have.

Thanks for the response nonetheless

that's the one Jindon !

thanks a bunch my dude