With ¿é¤Jªí³æ.¤u¦a¿ï³æ
.Clear
.ColumnCount = 2
.ColumnWidths = "1.5cm;3cm"
For IA = 11 To Sheets("TEMP").Range("R9").Value
.AddItem
.List(IA - 11, 0) = Sheets("TEMP").Range("R" & IA).Value
.List(IA - 11, 1) = Sheets("TEMP").Range("S" & IA).Value
Next IA
End With