Updating excel sheet data to sharepoint list

Hi All,

Can any one of you please send me the sample code to update the excel sheet data to sharepoint list using VBA Macros.

i have used the below code to get the sharepoint list data to excel sheet using the below VBA code

Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(2)
    Dim src(1) As Variant
    src(0) = "http://sp2013srv/_vti_bin"
    src(1) = "7e644fee-a5f3-488a-8dde-0da8ba858cb1"

    ws.ListObjects.Add xlSrcExternal, src, True, xlYes, ws.Range("A1")
.