Sub kkk()

Dim acadApp As AcadApplication

Dim acaddocs As AcadDocuments

Dim acaddoc As AcadDocument

On Error Resume Next

Set acadApp = CreateObject("AutoCAD.Application")

Set acaddoc = acadApp.ActiveDocument

acadApp.Visible = True

Dim myline As AcadLWPolyline

Dim mylist(5) As Double

mylist(0) = Cells(1, 1)

mylist(1) = Cells(1, 2)

mylist(2) = Cells(2, 1)

mylist(3) = Cells(2, 2)

mylist(4) = Cells(3, 1)

mylist(5) = Cells(3, 2)

Set myline = acaddoc.ModelSpace.AddLightWeightPolyline(mylist)

End Sub